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Redactioneel 

Het grote Commodore-Offensief gaat 
eindelijk van start. We hebben er alle¬ 
maal op zitten wachten, op de machi¬ 
nes die de echte sprong vooruit zou¬ 
den betekenen na de toch matige in¬ 
druk die het 264, 364, Plus/4 en C-16 
experiment achterliet. En we waren 
het wachten eigenlijk wat moe! 

Maar goed, de machines zijn er en de 
128 komt hopelijk volgende maand in 
de winkel. De knaller voor de kenner, 
de supermicro AMIGA werd op 23 juli 
in New York voor het eerst getoond. 
We waren erbij en u hoort in het vol¬ 
gend nummer meer over deze door¬ 
braak naar professionele creativiteit. 
Indrukwekkend, om je vingers bij af te 
likken, om stil van te worden. 

Ook bij Commodore-lnfo zelf staat de 
ontwikkeling niet stil. We zijn erg ge¬ 
groeid dit laatste jaar en dus betrek¬ 
ken we in Amsterdam een nieuwe 
kantoor (Den Texstraatöa), waar Joost 
Taverne als uitgever nu verantwoorde¬ 
lijk is voor de commercie en admini¬ 
stratie. De bedoeling hiervan is dat 
ikzelf dan wat meer tijd kan besteden 
aan het schrijven van dit en andere 
bladen en nieuwe activiteiten kan op¬ 
zetten. 

Ook komt er weer een Commodore- 
lnfo beurs (op 14 September in Den 
Haag) en gaan we middels een nieuwe 
Ideeën-wedstrijd uw creatieve talen¬ 
ten een kans geven. 
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LUC SALA’S 
DATAKOLOM 


Is de computergebruiker een slaaf 
van zijn beeldscherm, zelfs al is dat 
plat? Blijven zijn vingers de belang¬ 
rijkste transmissiefactor via toetsen¬ 
bord of muis? 

Ik geloof de profeten van de micro- 
wereld eigenlijk maar half, als ze 
weer zo’n schitterend verhaal op¬ 
hangen over mensvriendelijke be¬ 
diening en dan met ikonen, user in¬ 
terface en touchscreens aan komen 
dragen. Prima ideeën allemaal, maar 
heeft u ook niet het gevoel, dat dit 
maar een kant van de mogelijke 
computer-medaille betreft. Want de 
mens is meer dan ogen en vingers, 
we kunnen ook horen, voelen, ruiken 
om maar een paar zintuigen te noe¬ 
men. En dan heb ik het nog hele¬ 
maal niet over telepatisch contact 
met de chips, dat is weer een ande¬ 
re dimensie. 

Laten we eens een compleet andere 
computer voor de geest halen, een 
waarbij ogen en vingers geen rol spe¬ 
len. Een leuk voorbeeld zou de AUDI- 
OCOMPUTER kunnen zijn. Dat is een 
apparaat, waarbij geluid wordt ge¬ 
bruikt om met de computer te com¬ 
municeren in twee richtingen. En we 
gaan dan een stapje verder dan de 
stemgestuurde probeerseltjes op he¬ 
dendaagse micro’s, dat zijn in wezen 
erg simpele alternatieven voor bestu- 
ringscommando’s. Want in plaats van 
intypen COPY of DIR kun je dat dan 
inspreken. Leuk, maar nog steeds ge¬ 
bonden aan het huidige computer- 
concept. Kijk eens een stapje verder, 
naar een systeem waarbij bv. audio- 
signalen als muziek of tekst interac¬ 
tief op iedere gewenste plaats af te 
spelen zouden zijn. Het daarmee zelf 
programmeren van de afspeelvolgor- 
de van een bepaalde LP of CD is 
maar een simpel voorbeeld en trou¬ 
wens ook één, dat we binnenkort ook 
wei op standaard audioapparatuur 
kunnen verwachten. 

Een Audiocomputer kan net zo 
interactief zijn als een 
videocomputer. 

Er bestaat natuurlijk nog helemaal 
geen Audiocomputer, iedereen is nog 
vee! te druk met de Videoversie be¬ 


zig. Toch lijkt me, dat bijvoorbeeld 
zo’n nieuwe Sony Walkman waarop 
met TWEE cassettes tegelijkertijd kan 
worden gewerkt, of met een beetje 
flexibele CD CompactDisk al heel wat 
te bereiken zou zijn. Bijvoorbeeld een 
talencursus, met op de ene kant de 
lesstof en aan de andere kant de oe¬ 
feningen. De bestuurshardware en 
software, en daarmee dus het hart 
van de Audiocomputer, zou steeds 
kunnen zorgen voor de optimale af¬ 
stemming tussen die twee. En heel 
wat lesstof is toch overdraagbaar via 
geluid en spraak. En wat dacht u van 
rondleidingen in bv. musea, waarbij 
met simpele herkenning van bv. stop 
en go het tempo valt aan te passen. 
Of conditietraining met mondelinge 
begeleiding, ochtendgymnastiek, in 
wezen alle muzikale interactie, waar¬ 
bij middels wat chips de tempobepa- 
ling kan worden beïnvloed. Een me- 
nugestuurd spelletje op weg naar 
school of werk, een tekstadventure 


met een simpele audiojoystick, die re¬ 
ageert op hoog/laag/links/rechts, het 
is echt niet zo moeilijk te realiseren. 
Gaan we nog een stapje verder en 
nemen we aan dat stemherkenning 
echt toepasbaar wordt, dat groeit de 
toepassing van de audiocomputer 
navenant. Zoals bij het hele telefoon¬ 
verkeer, het afhandelen en vastleg¬ 
gen daarvan is toch typisch een audi- 
otaak, waarbij een toetsenbord of 
beeldscherm in wezen overbodig zijn. 
"Bei Jansen" zou toch voldoende 
moeten zijn voor een beetje chipsko- 
lonie in de vorm van onze imaginaire 
Audiocomputer. En wat te denken 
van beveiligingstaken, voorlopig 
schrikt een autoinbreker waarschijn¬ 
lijk nog wel van een direct tot hem 
gerichte tekst. Kinderoppas met inte¬ 
ractieve verhaaltjes voor het slapen 
gaan, we kunnen dit ook nog door¬ 
trekken tot praktische maar ook wat 
beperkte toepassingen als een auto¬ 
matische gesprekspartner in het café, 
de oplossing om van het gezeur in 
de echtelijke en andere spondes af te 
zijn. Maar ja, dan zijn we in de situa¬ 
tie waarin we niet meer weten, wie nu 
antwoordt, de mens of de machine 
en dat is ooit als criterium voor "den¬ 
kende” machines gebruikt. 


_ 


m 

Ml KROSUPPORT 

Lijst van printers: 

Een echte Commodore printer (dus echte BMCBX80, bxioo 

Commodore listing en grafiek) met het BrotherHR5, HR10, HR15, HR25, Ml009 

Centronics 150,154, 7xx, GLP, Horizon 
Copal SCI 000, SCI 200 

WW 92000 G interface fx» 

- C.ltoh 1550, 8510, 8600 

•§• mmm Inforunner Riteman 

voor slechts J CmCmrnJ^ KG DPI65 

Adviesprijs ƒ 289,- Mannesmann MT80 

NEC 8023, P2, P3, Spinwriter 

Oki 80, 82, 83, 84, 92, 93 

Bestel hem nu, geschikt voor alle printers in de DMp'i loo! MP 1180 

ÜJSt. Sakata SPI 000, SPI 200 

SCM Dl00, Fastext 80 

__, _ Seikosha GP 700 

TEL G2526-74346 Siber Kikai SP80 

• mm mm -rv-TV Speedy80,100 

MiCIIIAJL l/TA/AIJCrO star Gemini ’ Delta ' Radix 

•WC 1/ “ wCIWlWCr en vele andere printers. 
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nieuw/ 


Slipstream 
Hi-res monitor 



Van Dunnet is er een nieuwe 
hi-resolution monitor op de 
markt, die speciaal ontwor¬ 
pen is voor gebruik met 
huiscomputers: de Slip¬ 
stream Monitor met een 
amberkleurige beeldbuis 
(DF622) of met een groene 
beeldbuis (DF 625) voor 
ƒ449,-. 

De monitor heeft een band¬ 
breedte van 20 MegaFlerz 
en een resolutie van 850 
lijnen in het midden van het 
beeld. De maximale display 
is 720 x 312 pixels, dus ge¬ 
schikt voor 80 kolms en C- 
128. Door de uitvoering van 
de beeldbuis met P 42 fos¬ 
for (gemiddelede nalichttijd) 
is er sprake een goede 
beeldstabiliteit voor grafi¬ 
sche en teksttoepassingen. 

Koala Light 
Pen 

Dit van de Koalapad beken¬ 
de bedrijf brengt nu (via im¬ 
porteur Dunnet) ook een 
lichtpen. Niet goedkoop 
voor ruim 245 gulden, maar 
over kwaliteit gesproken, dit 
zijn de meesters van het 
grafische werk. En er is het 
programma PENPAINTER 
bij, zodat de creatieve gees¬ 
ten direct aan het werk kun¬ 
nen en wel pixel voor pixel, 
want zo gedetailleerd valt 
hiermee te werken. 


Leer Bridge 

Al weer een tijdje geleden 
kwam bij ons op de redactie 
iemand op bezoek met een 
nieuw Bridge programma. 
Het zag er fraai uit en hij was 
op zoek naar een manier om 
het commercieel te exploi¬ 
teren. Dat is ondertussen 
gelukt, oa. bij MCN en het 
softwarehuis BRIDGESOFT 
heeft het pakket nu dus in 
de winkels liggen. We heb¬ 
ben wat kunnen spelen met 
LEER BRIDGE en het is ook 
grafisch een goed uitge¬ 
voerd programma, dat zich 
bovendien houdt aan de in 
ons land gebruikelijke 
ACOL biedconventies, en 
dus aansluit bij een TV-cur- 
sus over Bridge van de Avro 
dit najaar. 


IBM printers 



U weet waarschijnlijk wel, 
dat in ons land ook de we¬ 
reldwijd befaamde IBM bol- 
letjes-schrijfmachines wer¬ 
den gemaakt. Er zijn in het 
verleden wel pogingen ge¬ 
daan, om die machines te 
gebruiken als computer- 
printer, maar zonder veel 
succes. Nu de opvolgers 
van de bolletjesmachines er 
zijn, heeft IBM wel rekening 
gehouden met de printer- 
functie. Let op, IBM zou wel 
eens een belangrijke rol 
kunnen gaan spelen op 
printergebied en dan met 
een "nederlands” produkt. 





De C-128 in 
Keulen 

Tijdens de in juni jl. gehou¬ 
den Keulse C’85 Internatio¬ 
nale Computershow was 
het behoorlijk vol. Commo¬ 
dore produkten van vele 
kanten trokken zoals ge¬ 
bruikelijk de meeste be¬ 
langstelling, vooral in het 
weekend. Commodore 
heeft daar de nieuwe C-128 
aan het Duitse publiek ge¬ 
presenteerd na de "halve” 
introductie tijdens de Hann- 
over Messe in april van dit 
jaar. De machine was er 
toen al wel maar werkte al¬ 
leen nog maar in de 64 
mode. 



Het is overigens nog steeds 
niet helemaal duidelijk wan¬ 
neer de C-128 in ons land 
leverbaar zal zijn. Er lijken 
enkele problemen met de 
CP/M ROM te bestaan, 
waardoor het waarschijnlijk 
iets later wordt. We hopen 
nu, dat de machine in sep¬ 
tember 1985 in de winkels 
ligt. de aanvankelijk geplan¬ 
de datum. 


Top 20 

Niet alleen in de muziekhit- 
lijsten heeft het Engelstalige 
repertoire al jarenlang de 
overhand, ook op de soft¬ 
ware charts domineren de 
Angelsaksische (en soms 
Japanse) pakketten. Dat is 
niet alleen het geval In Ne¬ 
derland, ook de Duitse C-64 
Top 20 van vorige maand 
bevat maar één duitstalig 
programma. Uit het hierna¬ 
volgend overzichtje blijkt de 
voorkeur van de Duitse C- 
64 gebruiker nauwelijks te 
verschillen van die van de 
Nederlandse: 

I.Flight Simulator; 2.Eure- 
ka(duits); 3.Ghostbusters; 
4.Super Huey; 5. Pitstop 2; 
6.Summer Games; 7.Give 
my regards...; 8.lndiana Jo- 
nes; 9.Baseball; lO.Beach 
Head. 

U ziet het, de computer kent 
geen grenzen... 

Jonge 

Astronauten 

In de Verenigde Staten is 
Commodore één van de 
veertien sponsors van het 
nationale Young Astronauts 
Program. Dit project is op¬ 
gezet om bij de jeugd de 
belangstelling voor de ruim¬ 
tevaart en de daaraan ver¬ 
wante wetenschappen te 
stimuleren. Iedere groep 
van 5 tot 30 scholieren van 7 
tot 18 jaar kan zich opgeven 
en krijgt dan jaarlijks ten 
minste vier opdrachten voor 
onderzoek of studie. Daar¬ 
naast ontvangen de deelne¬ 
mers een tijdschrift over het 


project, er zijn wedstrijden, 
bezoeken aan ruimtevaart- 
centra en zij kunnen deelne¬ 
men aan Young Astronauts 
summer camps. 

De bijdrage van Commodo¬ 
re bestaat uit het ter be¬ 
schikking stellen van alle 
voor het project benodigde 
hardware met een aantal 
toepasselijke software pak¬ 
ketten, waaronder SKY 
TRAVELenJUSTIMAGINE. 
Het project staat onder lei¬ 
ding van de in Washington 
gevestigde Young Astro¬ 
naut Council. Voorlopig 
kunnen er alleen Ameri¬ 
kaanse scholen aan mee¬ 
doen maar de Council wil 
het project naar andere lan¬ 
den, waaronder zelfs de 
Sovjet Unie, uitbreiden. 
Voor nadere informatie: The 
Young Astronaut Council, 
P.O.Box 65432, Washing¬ 
ton, D.C. 20036, U.S.A. 

APPLE op 64 

Het is een dure oplossing, 
want een werkende emula¬ 
tie voor Apple 2 software op 
de C-64 kost meer dan 
2000 gulden, maar voor de 
liefhebbers is het er nu. Een 
systeem om Apple software 
te gebruiken op de 64, dat 
SPARTAN heet en door 
MIMIC geleverd wordt 
(1112 Fort str. FI.6N, Victo¬ 
ria BC Canada V8V4V2). 

Video digitizer 

In Keulen zagen we ook nog 
de VD 64 digitizer, waarmee 
men beelden van videore¬ 
corder of Tv kan opnemen 


en digitaliseren, ofwel om¬ 
zetten in een computer¬ 
beeld. Het werkt via de 
user-poort en past op de 64, 
de 128 en de SX64. Het 
resultaat ( opgebouwd uit 
160 x 200 punten) wordt in 4 
grijstinten vastgelegd, maar 
kan achteraf met kleuren 
bijgewerkt worden, met Ko- 
alapainter zelfs 16 kleuren. 
De maximale snelheid is 3 
digitale beelden per sekon- 
de en er kan met de 
801,802, Epson en HP Inkt- 
jet printers gewerkt worden 
voor afdrukken. Compati¬ 
bel met het Koalapainter 
formaat. Leverancier: MER- 
KENS Fuchstanzstrasse 6a, 
6231 Schwalbach BRD 
(0)6196-83030. 


Bandkabel 



Bij het maken van kabels, 
bv. vooreen RS-232 of Cen¬ 
tronics verbinding, moet 
men kiezen tussen het ge¬ 
makkelijk monteren van de 
connectors bij bandkabel 
en het gemakkelijk wegwer¬ 
ken en leiden van de kabel 
zelf bij ronde kabel. Ronde 
bandkabel, zoals deze vén 
3M Schotchflex, lost dat 
probleem op. De voordelen 
van beide kabelsoorten ge¬ 
combineerd in één type. 



UITBREIDINGSMODULEN VOOR UW 
COMMODORE 64 

Simon Vestdijk Erf 177, 3315 CW Dordrecht Telefoon 078-210181 


IS ALTIJD GEÏNTERESSEERD IN UW EIGEN 
HARD- OF SOFTWARE ONTWIKKELINGEN. 
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Databank training 

Van Grolier uit de VS (212-696975) 
zagen we een trainigsprogramma 
voor het aanroepen en gebruiken van 
databanken. Hoewel diensten als the 
Source, CompuServe en Dow-Jones 
voor computeraars hier wat duur zijn 
gezien de telefoonverbindingen, is het 
idee hierachter zeker de moeite 
waard. Via gesimuleerde verbindingen 
met een databank leert de potentieële 
gebruiker daarvan omgaan met aan¬ 
log procedures, zoekstructuren, 
downloading informatie en software, 
kortom de ins en outs van de (tele¬ 
communicatie met zo’n externe data¬ 
bank. We zouden voor bv. het onder¬ 
wijs ook hier wel een dergelijk pro¬ 
gramma kunnen gebruiken, om het 
gebruik van Viditel en de diverse bulle- 
tin-boards te trainen. 


Muis voor C-64 

U kent die tafeldiertjes wel, zo’n 
besturingsgeval met staart en wat 
knopjes, die als alternatief voor 
toetsenbord het summum aan ge¬ 
bruiksvriendelijkheid belooft. Ge¬ 
baseerd op het PARC interface, dat 
in de Star en de Lisa zijn eerste 
concrete toepassingen vond. Voor 
de 128 komt er vast oook een, op de 
PC-10 zijn er al heel veel soorten te 
krijgen. 



Eindelijk is er een muis voor de Com- 
modore-64 en het ziet ernaar uit dat 
het een muis wordt die gaat "brullen”: 
het Britse bedrijf SMC heeft nu in haar 
Connexions lijn een "Magie Mouse” 
voor de C-64 die primair bedoeld is 
voor grafische toepassingen. De muis 
werkt echter ook met vrijwel alle ande¬ 
re programma’s en kan dan in plaats 
van een joy-stick worden gebruikt. 
Voor doorgewinterde knuppelar- 


tiesten zal dat in het begin wel even 
wennen zijn, maar ja, we moeten na¬ 
tuurlijk allemaal met de tijd meegaan. 
Met behulp van de muis kunnen 16- 
kleuren plaatjes naar een disk wegge¬ 
schreven worden en verdere functies 
zijn o.a. het creëren van line rays, 
frame boxes, horizontale en verticale 
lijnen, cirkels en de mogelijkheid om 
zeer gedetaileerde inkleuringen te ma¬ 
ken. Er zijn er twee soorten en forma¬ 
ten tekst en is er een extra dunne 
"pen” voor fijn tekenwerk. De sprite 
designer kan 200 sprites ontwerpen 
en U kunt ikonen maken om in uw 
eigen programma’s te gebruiken. 

Het produkt is ontwikkeld in de U.K., 
maar door produktie in het Verre Oos¬ 
ten kan SMC de prijs relatief laag 
houden (59.95 pond voor het hele 
pakket). Maar denk er aan, zo’n muis 
werkt alleen maar met daarop afge¬ 
stemde pakketten. De eerste stap is 
nu gezet, maar wacht eerst eens af of 
de standaardpakketten als Superbase 
en Easyscript dit muis gebruik gaan 
ondersteunen. 


Nuttige stofkap 



Bijgaande stofkap is gua vormgeving 
erg fraai en biedt ook nog plaats aan 
wat nuttige bureau-artikelen. Pas ove¬ 
rigens bij stofhoezen altijd op, wan¬ 
neer de machine aan blijft staan, kan 
de warmte soms niet weg en brandt 
de zaak van binnen door. 



Van Spectravideo komen nogal wat 
soorten joysticks en ander besturings- 
tuig, zoals trackballs. I 


Epson GX-80 

Van de bekende leverancier Epson is 
er nu ook een budget-printer. Voor 
minder dan 1000 gulden ex BTW 
(maar een C-64 interface met alle mo¬ 
gelijkheden kost ƒ 169 extra) is er nu 
de GX-80 met een snelheid van 100 
tekens/sec. Voor briefkwaliteit is de 
snelheid 20 t/s. Inl. 04139-8883 


Karateka 

Van Broderbund is er het sport/spel- 
programma Karateka. Niet goedkoop 
met ƒ99,-, de liefhebber van de oos¬ 
terse vechtsporten kan zijn hart opha¬ 
len. Er zit een heel scenario in, de 
speler moet de Warlord AKUMA be¬ 
vechten over goed scrollende tonelen, 
in een fraaie animatie. Kwaliteit! 
inl. 023-319290 

Samson 

Jeugdcursus 

Een computercursus op basis van LO¬ 
GO wordt door Samson gegeven aan 
kinderen van 8 tot 16 jaar in de vakan¬ 
tie. Voorlopig voor eigen personeel, 
maar men wil dit ook uitbreiden. 

Inl. P van Roon 01720-62158 


NABESTELLEN 


Wie oude nummers van Commodo- 
re-lnfo wil hebben, krijgt door over¬ 
making van ƒ 6,75 per nummer op 
giro 1585491 tnv. SAC dat opge¬ 
stuurd. Op andere wijze bestellen is 
helaas niet mogelijk, maar wel kunt 
u op de Commodore-lnfo beurs op 
14 september ook oude nummers 
ter plaatse kopen. 

ADRESWIJZIGING 
Commodore Info 
verhuist naar: 

Den Texstraat 5a, 
1017 XW te 
Amsterdam 
Tel. 020-273198 
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SOFTWARE ★ SOFTWARE ★ SOFTWARE 



Het aanbod van nieuwe software van vaderlandse bodem is in deze zomerperiode niet 
erg groot, daarom deze keer voornamelijk programma’s, die we in juni van de CES in 
Chicago in de VS meenamen. Wel hebben we nu Aackotext en Aackobase van 
Aackosoft in nieuwe verpakking en met een keurig verzorgde handleiding in huis, maar 
daar komen we een volgende keer op terug. Ook de educatieve Fisher Price software 
houdt u nog tegoed. 


RACING DESTRUCTION SET 
Van Electronic Arts 
voor C-64 / disk. 


Anders dan het vorige spel is dit er 
weer een uit de goede traditie van 
Electronic Arts, de mannen van de 
legosoft-voorloper Pinball Constructi- 
on Set en basketball-topper One-on- 
One. De graphics van Racing DS zijn 
nog niet helemaal het einde, maartoch 
is dit een zeer opmerkelijk stuk soft¬ 
ware voor de Commodore 64. Zoals 
de naam zegt, een race-spel. Maar wel 
een leuk en leerzaam spel, zelfs als 
racen niet direkt je voorkeur heeft. 

In het spel zitten de mogelijkheden om 
je eigen racebaan te kiezen uit een 
keur van meegeleverde parcoursen, al 
zijn die wel Amerikaans natuurlijk. 
Daarnaast is het mogelijk, hoe kan het 
anders bij EA, om je eigen circuit vanaf 
de basis op te bouwen. En daarbij is 
de opbouw niet beperkt tot het aange¬ 
ven van bochten etc., maar ook kun je 
naar wens een keuze uit maken uit het 
inbouwen van hellingen, heuveltjes en 
kuilen, terwijl als laatste ook het weg¬ 


dek -per segment- kan bestaan uit 
asfalt, gravel of zelfs sneeuw. 

De construktie van de baan kan (na 
geringe instruktie) zelfs door een 8- 
jarige worden uitgevoerd, zoals we 
hebben geconstateerd. 

Voordat de race begint, want je moet 
natuurlijk ook wel de zelfgemaakte 
weg op om je kunsten te vertonen, kun 
je een keuze maken uit diverse model¬ 
len race/crosswagen en motoren, ui¬ 
teraard al naar gelang het parcours. 
Een Formule I is niet erg geschikt voor 
een cross-circuit. Bij deze optie heb je 
nog vele submogelijkheden om de wa¬ 
gens naar eigen inzicht op te tuigen 
met het nodige motorvermogen, ban¬ 
densoort en max.snelheid etc. zodat 
het mogelijk wordt om de tegenpartij 
te voorzien van een ander model/ uit¬ 
voering waardoor een handicap kan 
worden ingebouwd. 

Ook de zwaartekracht kan worden in¬ 
gesteld op 10 a 12 niveau’s. 

Mijn kinderen en ikzelf hebben met 
plezier dit spel ondergaan en er meer 
dan normale tijd aan besteed. De 
oorzaak hiervan ligt wellicht in het feit, 
dat er niet alleen door 1 speler tegen 


de computer kan worden geraced, 
maar ook (met twee joysticks) 2 spe¬ 
lers het tegen elkaar kunnen opne¬ 
men, waarbij je het elkaar goed lastig 
kunt maken, door botsingen, (GO- 
CARTs), aanwezige landmijnen en 
olieplassen en wat al niet meer. Goede 
stuurmanskunst strekt bij het spelen 
tot aanbeveling. Als je maar enigszins 
van dit soort spellen houdt, mag dit 
’Racing Destruction Set’ zeker niet 
aan je bibliotheek ontbreken. Vooral 
de split-screen uitvoering bij racen 
met 2 spelers, waarbij ieder zijn eigen 
stukje parcours kan overzien, maar de 
zaak weer samenkomt wanneer de 
wagens dicht bij elkaar komen, is heel 
amusaant. Prima en net even anders 
spel! 


SKYFOX 

Van Electronic Arts 
voor C-64 / disk. 


EA brengt het door Ray Tobey ge¬ 
schreven spel ’Skyfox’ voor de C-64 
op de markt. Dit stuk software simu¬ 
leert de cockpit van een supersnelle 
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gevechtsjet, die (volgens de cover) in 
staat is om binnen 4 seconden een 
snelheid van Mach-4 te bereiken. 

De bedoeling van dit spel is om met 
gebruikmaking van de HQ-computer 
en de aan boord van de straaljager 
aanwezige hulpmiddelen, zo snel mo¬ 
gelijk alle vijandige legervoer- en 
vliegtuigen uit te schakelen. Dit spel 
valt in de categorie van behendige 
schietspellen, en wijkt in z’n uitvoering 
alleen maar af, doordat er een onge¬ 
woon groot aantal mogelijkheden in 
de software zitten, die het oefenen op 
een lager niveau vergemakkelijken. De 
Hires-schermen zijn aardig, wel vrij 
langzaam en weinig gedetailleerd. 

Als je al beschikt over de nodige aktie/ 
schiet-software, zul je ’Skyfox’ zeker 
niet missen, we waren er niet stuk van. 


NEOCLIPS 
Van BCI-Software 
voor C-64 / disk. 


Van geheel ander kaliber is ’Neoclips’, 
een disk (met 8-regelig stencil voor het 
gebruik) in een grote doos, waarvan 
het enige bijzondere de tekst: ’Num- 
ber 1 game in Europe’ te melden is. 
Ik heb in Nederland nog weinig van dit 
spel vernomen, en als het aan mij ligt, 
hoeft dat eigenlijk ook niet. 

Het spel is een Arcade-game, met de 
onvermijdelijke Bad Guys, die van al¬ 
les willen vernielen. Om dat tegen te 



houden kun je met je ’Good guy- 
vliegmachien alles in de puin schieten, 
tot jezelf wordt geraakt. 

Mooie namen, grote kreten, maar wei¬ 
nig meer dan al die andere arcade- 
spelletjes, waar we al zoveel van bezit¬ 
ten. Er zijn veel betere op de markt. 
Hoogstens mag de prijs, dit zijn 5 
dollar spelletjes in de VS, terwijl voor 
de EA spellen 30, 40 of meer dollars 
moeten worden neergeteld, een ex¬ 
cuus vormen. 


SFX MUSIC MAKER 
Van Commodore 

Voor C-64 / cassette (of disk) / 
mechanische uitbreiding. 


Een stukje software en een klein plas¬ 
tic toetsenbordje, dat over de stan¬ 
daard C-64 moet worden geschoven, 
kun je voor rond 100 gulden het jouwe 
noemen, samen met een zing-boek, 
waarin enkele notenbalken met top¬ 
hits uit vervlogen dagen zijn gedrukt. 
Het is de bedoeling om op deze ma¬ 
nier de computer als syntheziser te 
kunnen gebruiken, en naarde letter, is 
Commodore daarin geslaagd. Nadat 
de software (via Novo-load) is ingela¬ 
den, krijg je een door F-toetsen be¬ 
stuurd menu, waardoor je van de ver¬ 
schillende mogelijkheden gebruik 
kunt maken. 

De schermopmaak is verder van wei¬ 
nig belang, want het gaat hier om 
geluiden en muziek. Door op de plas¬ 
tic toetsjes te drukken, komt er geluid 
uit de TV (of, beter nog de HIFI) dat 
doet denken aan een simpel electro- 
nisch orgeltje. De toetsomvang van 
het klavier is 2 oktaaf. Dit ding is te 
klein om er goed op te kunnen spelen, 
maar daardoor geschikt voor kinder¬ 
handjes. 

Er zitten in totaal 8 voor te program¬ 
meren stemmen in gebouwd, die stuk 
voor stuk ten gehore kunnen worden 
gebracht, al of niet met een meespe¬ 
lend ritme en zelfs nog een baspartij. 
Naast de sequencer (een moduul, 
waarbij je eerst een deun kunt intoet¬ 
sen, dan korrigeren en daarna laten 
afdraaien ) kun je de liedjes die je 
speelt uiteraard voor later gebruik 


wegschrijven naar tape of disk. 
Kennis van het notenschrift is niet 
direkt vereist, omdat het instruk- 
tieboek, via ’cdefgabc’ en stickertjes, 
duidelijk maakt waar de toetsen op het 
klavier zitten. 

De 3 ritme-opties klinken leuk, maar 
zijn wel steeds hetzelfde, dus blijven 
de klanken beperkt door de onophou¬ 
delijke dreun van de ritmesectie, te¬ 
meer daar de verhouding tussen beide 
niet valt te regelen. Je hebt een grote 
kans snel dit spel snel te hebben uitge¬ 
hoord, meegeholpen door het feit, dat 
na korte of lange tijd het spel uit zich¬ 
zelf al stopt met de scherm boodschap 
’out of memory in 24563’. Niet zo’n 
beste beurt voor een exempel van 
Commmodore’s eigen merk. 


STRIPPOKER 
Van Artxwork 


Voor iedereen die er altijd al van heeft 
gedroomd, nu eens echt met een po¬ 
kerface z’n ’full house’ te kunnen 
openleggen, heeft Artworx kennelijk 
gemeend een extra dimensie aan het 
pokerspel te moeten toevoegen, door 
er een soort Hires striptease van te 
maken. 

Nu weet ik wel, dat er genoeg aardigs 
van strippoker valt te zeggen, en ook 
dat er niet altijd mogelijkheden zijn om 
dit spel te kunnen spelen, maar m.i. ligt 
het accent daarbij niet op het pokeren. 
In de electronische versie van strippo¬ 
ker maken we kennis met twee gast¬ 
vrouwen, die de welluidende namen 
van Suzy en Melinda hebben meege¬ 
kregen. De speler krijgt $100 in z’n 
hand en kan daarna een keuze uit de 
beide aanlokkelijke dames maken, om 
het spel mee te spelen. 

Daarna gebeurt er een poos niets, en 
vervolgens verschijnt Suzy (of Melin¬ 
da) ten voeten uit op het scherm. Wat 
er verder gebeurt, is niet moeilijk te 
raden, want het doel wordt nu natuur¬ 
lijk, zo snel mogelijk de dame uit de 
bloes en iedere $100 is weer een kle¬ 
dingstuk. De hires voorstelling van de 
dames is allesbehalve optimaal, dus 
daarvoor hoef je dit spel niet aan te 
schaffen. Wel kun je nog het een en 
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Vervolg Software 

ander leren over de enorme hoeveel¬ 
heid dames-lingene die er blijkt te be¬ 
staan. Geen aanrader, maar de dames 
kunnen aardig pokeren. 


KWIKFILE 
Van Datamost 
voor C-64 / disk. 


Kwik-file moet worden gezien als een 
serieuze poging om een (betaalbare) 
imitatie te zijn van b.v. Superbase en 
wordt samen met wat andere "snelle” 
programma’s in de VS heel goedkoop 
op de markt gebracht, de zgn. "Bud¬ 
get” software. 

Om de prijs hoef je dit database pro¬ 
gramma dgs niet te laten liggen, maar 
ondanks de grootse beloften op de 
doos en in het instruktieboek, komt er 
weinig meer uit dit bestand dan iets, 
waarvan wij in dit blad al listings heb¬ 
ben gepubliceerd. 

Uiteraard is het niet fair het hiermee af 
te doen, want ’Kwik-file’ heeft ook z’n 
goede kanten. Zo kun je maximaal 50 
veldén per record definiëren en dat 
laat veel ruimte voor ingewikkelder 
bestanden, je kunt -per bestand- een 
wachtwoord inbouwen, labels van de 
data-gegevens kunnen worden ge¬ 
print (op een vreemd sticker for¬ 
maat!?) en ook een cross-referentie 
hoort bij de opties. 

Het Engelstalige handboek geeft vol¬ 



doende informatie over het gebruik 
van deze data-base, maar je moet het 
hele boekje wel doornemen, voordat 
je begint met het serieus aanleggen 
van bestanden. Het gebruiken van 
’Kwik-file’ is vrij gemakkelijk, omdat er 
voor iedere handeling een keuze-me- 
nu op je scherm komt. 


Kortom, voor de beginnende databa- 
se-bouwer een leuk programma, maar 
verwacht geen wonderen van ’Kwik- 
file’. Voor commerciële toepassingen 
heeft dit programma weinig waarde. 


J.B. 




Voor programmering en ondersteuning 
van onze snel groeiende klantenkring een: 

Computerprogrammeur 


Tot de taken behoren o.m. 

het schrijven en overzetten van computerprogram¬ 
ma’s in de C taal; 

. het geven van telefonisch support aan onze 
bestaande klienten, alsmede het onderhoud aan 
bestaande applicaties. 

Van hem/haar zal na een inwerkperiode een duide¬ 
lijke inbreng verwacht worden ten aanzien van 
informatie overdracht (ook telefonisch), anders 
dan via het traditionele medium boek. 


Opleidingseisen : 

• Minimaal HAVO (met wiskunde) 

• Ruime ervaring in machinetaal 

• Ervaring in C strekt tot aanbeveling. 


BEL VOOR NADERE INFORMATIE 


Ook voor 
reparaties en 
service van ai 
uw Commodore- 
apparatuur kunt 
U bij ons 
terecht. 


Ridéro is een jong energiek computerbedrijf, met 
eigen software ontwikkeling, gericht op handel en 
industrie. Is COMMODORE dealer en importeur van 
Winchester harddisks tot 120 Megabyte. 

Ridéro verkoopt bovengenoemde apparatuur in 
combinatie met standaard en/of zelfontwikkelde 
software door geheel Nederland. 

Ridéro verzorgt het technisch onderhoud en geeft 
vanzelfsprekend support t.a.v. de software. 


COMPUTERHOUSE BV 


Schriftelijke sollicitaties 
kunt U richten aan: 

RIDERO COMPUTER¬ 
HOUSE B.V. 
Hierdenseweg 18 
3841 GX HARDERWIJK 


Ridéro bedrijfspand ► 


Ridéro 


Zoekt: 
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Deze aflevering gaat ook weer over de 65xx-processor, het hart van de Vic en de 64. 
We zullen ons hierin bezig gaan houden met rekenen en interrupts. Het programma van 
deze keer laat zien hoe je de ”1/60 seconde interrupt” heel makkelijk voor eigen 
doeleinden kunt gebruiken. 


Programmeren in 
machinetaal 


door Sjoerd Bakker 


Een computer is maar een beperkt 
wezen, dat zal u wel eens zijn opge¬ 
vallen. Maar wist u, dat zelfs zijn 
"zogenaamde” rekenkracht maar 
gebaseerd is op de allereenvoudig¬ 
ste principes en dat bv. vermenig¬ 
vuldigen en delen onbekende be¬ 
grippen zijn in het hart van de micro. 
Dergelijke functies moeten worden 
opgebouwd uit nog eenvoudiger 
handelingen. 



Rekenen 

De instruktieset, dus de reeks com¬ 
mando’s waarop de processor rea¬ 
geert, kent maar twee rekenkundige 
bewerkingen die we ook gebruiken in 
het decimale stelsel, namelijk optellen 
en aftrekken. Alle andere funkties, zo¬ 
als vermenigvuldigen en delen, moe¬ 
ten in principe met behulp van deze 
twee door de programmeur worden 
opgebouwd. Een vermenigvuldiging 
als 5 x 2 wordt bijvoorbeeld opgelost 
door hem eerst te vertalen in een 
andere som: 2+2+2+2+2. In princi¬ 
pe, omdat de processor een aantal 
andere tweetallige bewerkingen kent, 
waarvan je meestal beter gebruik kunt 
maken als je gaat rekenen in machine¬ 
taal. 

De instrukties voor optellen en aftrek¬ 
ken zijn: ADC en SBC. Dit zijn afkortin¬ 
gen voor AdD with Carry en SuBtract 
with Carry; vrij vertaald met respec¬ 
tievelijk: 

ADC : Tel bij de inhoud van de Accu¬ 
mulator de inhoud van de geadres¬ 
seerde geheugenplaats op en ver¬ 
meerder het resultaat met de waarde 
van het Carry-bit. 

SBC : Trek van de inhoud van de 
Accumulator de inhoud van de gea¬ 
dresseerde geheugenplaats af en ver- 


Aflevering- 4: 



De instrukties nader bekeken 


minder het resultaat met 1 als het 
Carry-bit 0 is. 

En daarmee zijn we weer volop in de 
geheimtaal, even een korte herhaling 
voor wie de vorige artikelen miste. De 
Accumulator is een register in het ge¬ 
heugen, een soort hulpgeheugentje, 
dat bij allerlei bewerkingen gebruikt 
wordt. 

Zoals we in de vorige aflevering heb¬ 
ben gezien wordt het C-bit of Carry-bit 
1 gemaakt als het resultaat van een 
optelling groter is dan $FF, oftewel: als 
het resultaat niet meer op twee hexa- 
decimale cijferplaatsen kan worden 
ondergebracht wordt de overloop, zeg 
maar het ”één onthouden”, op 1 gezet. 
Is dit wel het geval, dan wordt het C-bit 
0 gemaakt. Bij een aftrekking wordt 
het C-bit 0 gemaakt als het resultaat 
kleiner is dan $00. Is het resultaat 
groter dan of gelijk aan $00, dan wordt 
het C-bit 1 gemaakt. Het nut van deze 
eigenschappen wordt duidelijk met de 
volgende voorbeelden. 


We willen de getallen $FEFF en $0001 
bij elkaar optellen en doen dat met de 
beperkte commando’s die we kennen, 
terwijl we ook de plaatsjes, waar het 
resultaat komt te staan, natuurlijk 
moeten aangeven. 

Het resultaat zetten we in de bytes (op 
de adressen) $033A, $033B en $033C. 
Voor je begint aan een optelling moet 
je het C-bit 0 maken omdat je bij de 
eerste bytes (de Lo-bytes) natuurlijk 
nooit een carry hebt. 


CLC 

LDA#$FF 
ADC #$01 
STAI033A 
LDA#$FE 
ADC #$00 
STA$033B 
LDA #$00 
BCC #$02 

LDA #$01 
STA$033C 


Lo-byte getal 1 
Lo-byte getal 2 
Lo-byte resultaat 
Hi-byte getal 1 
Hi-bytegetal2 
2e byte resultaat 

Geen carry? 
Dan springen. A=$00 
Wel een carry. A=$01 
Hi-byte resultaat 
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Een analyse: 

$FF+$01 geeft als resultaat $00 en 
een ”1” C-bit. 

$FE+$00 geeft als resultaat $FF (carry 
!) en een ”0” C-bit. 

Het resultaat van $FEFF+$0001 is 
dus $(00)FF00. 

Voor aftrekken nemen we als voor¬ 
beeld $FF00-$0001. 

Deze keer past het resultaat altijd in 
twee bytes. We nemen hiervoor 
$033A en $033B. Aan het begin van 
een aftrekking moet het C-bit altijd 1 
worden gemaakt, want voor de eerste 
bytes (de Lo-bytes) kun je nooit al een 
"lening” of overloop hebben. 


SEC 

LDA #$00 
SBC #$01 
STA $033A 
LDA#$FF 
SBC #$00 
STA$033B 


Lo-byte getal 1 
Lo-byte getal 2 
Lo-byte resultaat 
Hi-byte getal 1 
Hi-bytegetal2 
Hi-byte resultaat 


Een analyse: 

$00-$01 geeft als resultaat $FF en een 
”0” C-bit. 

$FF-$00 geeft als resultaat $FE (carry 
0 !) en een ”1" C-bit. 

Het resultaat van $FF00-$0001 is dus 
$FEFF. 


Op deze manier kun je onbeperkt gro¬ 
te getallen bij elkaar optellen of van 
elkaar aftrekken. Je moet er dus alleen 
voor zorgen dat je, net als in het deci¬ 
male stelsel, begint met de twee Lo- 
bytes en eindigt met de twee Hi-bytes 
van een getal. 

Tweetallige bewerkingen 

De 65xx-processor kent twee soorten 
tweetallige bewerkingen en hoewel dit 
allemaal in wezen Boleaanse wiskun¬ 
de is, proberen we het hier eenvoudig 
te houden.: 

O AND, OR en EOR 
@ Rotaties en shifts. 

I.a AND 

De bewerking AND (en denk maar 
aan optellen als geheugensteun¬ 
tje) van twee getallen houdt in, dat 
een bit van het resultaat 1 wordt 
als van beide getallen het over¬ 
eenkomstige bit 1 is. Anders 
wordt het resultaatbit 0. 

0 AND 0 = 0 
0 AND 1 = 1 


1 AND 0 = 0 
1 AND 1 = 1. 

I.b OR 

De bewerking OR (en denk maar 
aan OF als hulpje) van twee getal¬ 
len houdt in, dat een bit van het 
resultaat 1 wordt als van minstens 
een van beide getallen het over¬ 
eenkomstige bit 1 is. Anders 
wordt het resultaatbit 0. 

0 OR 0 = 0 
0 OR 1 = 1 
1 OR 0 = 1 
1 OR 1 = 1. 

1. c EOR 

De bewerking EOR van twee ge¬ 
tallen houdt in, dat een bit van het 
resultaat 1 wordt als van precies 
een van beide getallen het over¬ 
eenkomstige bit 1 is. Anders 
wordt het resultaatbit 0. 

0 EOR 0 = 0 
0 EOR 1 = 1 
1 EOR 0 = 1 
1 EOR 1 = 0 

De bewerkingen OR en EOR lijken dus 
op elkaar, alleen als ertwee énen zijn is 
het resultaat anders. In wezen geven 
deze drie commando’s dus alledrie 
een resultaat op basis van vergelijking 
van 2 andere bits aan. 

2. a ROTATIES 

Bij een rotatie, weer zo’n woord 
dat een beetje verminkte beteke¬ 
nis heeft, verschuiven alle bit- 
waardes van een getal een cijfer¬ 
plaats naar links of rechts. Vervol¬ 
gens wordt de cijferplaats waar¬ 
heen nog geen bitwaarde is ver¬ 
schoven gelijk gemaakt aan de 
waarde van het C-bit en wordt het 
C-bit gelijk gemaakt aan de "laat¬ 
ste” bitwaarde die moest worden 
verschoven. 

2.b SHIFTS 

Ook bij shifts verschuiven alle bit- 
waardes van een getal een cijfer¬ 


plaats naar links of rechts. De 
cijferplaats waarheen nog geen 
bitwaarde is verschoven wordt nu 
echter altijd gelijk gemaakt aan 0. 
Het C-bit wordt weer gelijk ge¬ 
maakt aan de laatste bitwaarde 
die moest worden verschoven. 

Omdat de bits van een tweetallig getal 
van rechts naar links verdubbelen in 
waarde (128,64,32,16,8,4,2,1), bete¬ 
kent een linkse shift een vermenigvul¬ 
diging met 2 en een rechtse shift een 
deling door twee. En dat is natuurlijk al 
een aardig snelle manier van rekenen. 

Interrupts 

Het beinvloeden van de computer van 
buitenaf gaat via interrupts (onderbre- 
kingscommando’s), dat zijn ahw. de 
signalen waar de computer steeds 
naar kijkt om te weten of hij iets anders 
moet gaan doen. 

De meeste computerschaakprogram- 
ma’s produceren een pieptoon als ze 
een zet hebben gedaan. Dat is maar 
goed ook, want anders zou de mense¬ 
lijke tegenstander om de 10 minuten 
moeten controleren of de computer al 
klaar was. Het handelen van een mens 
na zo’n pieptoon vertoont veel over¬ 
eenkomsten met het handelen van de 
microprocessor na een interrupt. Je 
stopt even waar je mee bezig was, 
bijvoorbeeld het lezen van Commodo- 
re-lnfo, je typt een nieuwe zet in de 
computer, en gaat weer verder met 
lezen. Een interrupt kunnen we dus 
omschrijven als een forcering van een 
tijdelijke onderbreking (het intypen 
van een nieuwe zet) van het hoofdpro¬ 
gramma (het lezen van Commodore- 
Info). Vaak is er sprake van een vast 
tijdsverloop tussen twee interrupts. 

De 65xx-processor is voorzien van 3 
verschillende interruptingangen. Ze 
heten Reset, NMI, en IRQ. 

Als er op een van deze ingangen een 
stroomstoot wordt gegeven, maakt de 
processor de opdracht waarmee hij 
bezig was af, en springt daarna onmid- 


(illustratie 1) 


<$0F) 00001111 

($55) 01010101 AND 

($0F) 00001111 

($55) 01010101 OR 

(S0F) 00001111 

($55) 01010101 EOR 

($05) 00000101 

($5F> 01011111 

(S5A) 01011010 
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dellijk naar de betreffende interrupt- 
routine, 

De Stack 

Voor we gaan bekijken hoe een inter- 
rupt nu precies in zijn werk gaat, moe¬ 
ten we eerst iets meer weten over de 
Stack. De Stack zou je kunnen verge¬ 
lijken met een wat primitieve gardero¬ 
be. De jassen worden er niet opgehan¬ 
gen, maar op een grote stapel ge¬ 
gooid. De bovenste jas moet er dus 
altijd worden afgehaald door degene 
die hem het laatst heeft afgegeven. In 
computertaal noemen we een zodanig 
gestruktuureerde stapel een UFO 
(Last In First Out). 

De stack is een stapeltje gegevens in 
het processorgeheugen, waar de pro¬ 
cessor allerlei nuttige gegevens even 
wegzet om ze later weer op te pakken. 
Zo gebruikt de processor de Stack om 
er bij een interrupt het eerstvolgend 
adres van het hoofdprogramma (Hi- 
byte eerst) en de inhoud van de re¬ 
gisters op te zetten. (Bij JSR, Jump to 
Subroutine saving Returnadres, zet hij 
alleen het eerstvolgend adres van het 
hoofdprogramma op de Stack.) Ver¬ 
volgens wordt het 1-bit 1 gemaakt: 
interrupts over de IRQ-lijn worden ver¬ 
boden. Dan springt hij naar de inter¬ 
rupt- of subroutine. Als hij dan uitein¬ 
delijk een RTI of een RTS retourcom- 
mando tegenkomt haalt hij het be¬ 
waarde adres (en bij een RTI ook de 
inhoud van de registers) weer van 
de Stack, en vervolgt het hoofdpro¬ 
gramma vanaf het punt waar hij geble¬ 
ven was. De programmeur hoeft voor 
dit alles trouwens niet te zorgen: het 
gebeurt helemaal hardwarematig. 
Voor de Stack zijn de geheugenplaat- 
sen $0100 t/m $01 FF gereserveerd. 
Omdat de Hi-byte van elke Stack- 
plaats dus gelijk is aan $01, worden ze 
geadresseerd met alleen de Lo-byte. 
Dit wordt gedaan met behulp van de 
Stackpointer, die altijd wijst naar het 
eerstvolgende vrije Stackadres. Dat is 
niet, zoals je zou verwachten het 
adres+1 van de laatste waarde die we 
op de Stack hebben gezet, maar het 
adres-1 van die laatste waarde. Als 
gevolg hiervan begint de Stack op 
$01 FF en eindigt hij op $0100. Ook het 
verlagen en verhogen van de Stack¬ 
pointer gaat geheel automatisch. Met 
de instruktie TXS is hij ook soft¬ 


warematig te veranderen, maar dat 
zou ik de lezers van Commodore-lnfo 
niet willen aanraden. Voor je het weet 
loopt je hele programma in de soep. 

Zoals gezegd heeft de 65xx-proces- 
sor 3 verschillende interruptingangen. 
We zullen ze alle drie even apart door¬ 
nemen. 

1. Reset 

Na een signaal op de Reset-lijn springt 
de processor naar het adres dat ge¬ 
vormd wordt door de inhoud van 
$FFFC (Lo-byte) en $FFFD (Hi-byte). In 
de Kernal-ROM is op deze geheugen- 
plaatsen de waarde $FCE2 ingebak¬ 
ken. Op dit adres begint een routine 
die o.a. de tokaties $0000 - $0400 vult 
met beginwaardes voor het operating- 
system en de mededeling : 
****COMMODORE 64 BASIC V2 ... 
etc. op het scherm zet. 

Als de geheugenplaatsen $8004 t/m 
$8008 echter achtereenvolgens $C3, 
$C2, $CD, $38 en $30 (ASCII-codes 
voor CBM80) als inhoud hebben, 
wordt deze routine na enkele op¬ 
drachten afgebroken. Er wordt dan 
gesprongen naar het adres dat ge¬ 
vormd wordt door de inhoud van loka- 
ties $8000 en $8001. Dit is het geval 
als er een cartridge in de uitbreidings- 
poort zit. Cartridges leggen namelijk 
beslag op de geheugenplaatsen 


$8000 - $A000. Je kunt natuurlijk ook 
zelf zo’n cartridge simuleren door bo¬ 
venstaande waardes in de betreffende 
RAM-lokaties te poken. 

De Commodore 64 wordt ongetwijfeld 
het meest gereset door hem aan te 
zetten. Een interne reset vormt de 
laatste stap van de inschakelprocedu- 
re. Deze manier van resetten is echter 
in vele gevallen ongewenst omdat je 
door zelfs de kortste stroomuitval al je 
RAM-geheugen kwijt raakt. 

Meestal kun je beter gebruik maken 
van de mogelijkheid om een reset- 
knop te plaatsen op de uitbreidings- 
poort of userpoort. Deze hebben bei¬ 
de een reset-pin die via een lijn is 
verbonden met de resetingang van de 
processor. Overigens worden deze 
pinnen in de praktijk verder vrijwel 
nooit gebruikt als ingang, maar juist 
als uitgang om aangesloten apparaten 
te resetten. 

2. NMI 

Na een signaal op de NMI-ingang 
springt de processor naar het adres 
dat de inhoud vormt van lokaties 
$FFFA en $FFFB. In de Kernal is dat 
adres $FE43. Deze routine heeft als 
tweede opdracht weer een indirekte 
sprong. Deze keer naar het adres dat 
de inhoud vormt van lokaties $0318 en 
$0319. Normaal gesproken zal deze 
vektor (=pointer die door het opera- 
ting system zelden veranderd zal wor- 
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den) wijzen naar de 3e opdracht van 
de routine. Maar omdat de vektor in 
RAM ligt kan deze door de gebruiker 
worden veranderd. 

Vervolgens wordt er gekeken of de 
NMI intern veroorzaakt werd (door CIA 
2). Was dit niet het geval, dan wordt er 
getest op "CBM80” in $8004 t/m 
$8008. Zo ja, dan wordt er gesprongen 
naar het adres dat de inhoud vormt 
van $8002 en $8003. Zo nee, dan werd 
de NMI veroorzaakt door het gelijktij¬ 
dig indrukken van run/stop en restore 
op het toetsenbord en wordt er een 
BASIC Warmstart uitgevoerd. Aan het 
eind hiervan keert de computer terug 
in "direct BASIC-mode”. 

De meest voorkomende NMI is het 
indrukken van run/stop in kombinatie 
met restore. Negen van de tien com¬ 
merciële programma’s op cassette of 
disk maakt namelijk gebruik van de 
mogelijkheid om een cartridge te si¬ 
muleren. Daartoe schrijft het program¬ 
ma zichzelf (e.v.t. na een run) weg naar 
de geheugenplaatsen rond $8000. In 
kombinatie met een automatische 
start vormt zo’n nep- cartridge een 


bekende methode om het krakers wat 
moeilijker te maken. Als je nu run/stop 
en restore indrukt kom je meestal te¬ 
rug aan het begin van het programma. 
Resetten geeft een soortgelijk effekt. 

3. IRQ 

Na een signaal op de IRQ-pin springt 
de processor naar het adres dat de 
inhoud vormt van $FFFE en $FFFF. In 
de Kernal is dat $FF48. Hier wordt 
gekeken of de IRQ door een machine- 
taalprogramma (instruktie BRK) werd 
veroorzaakt of niet. In het eerste geval 
wordt er gesprongen naar het door 
vektor $0316/17 aangegeven adres. 
Bij gebruik van een machinetaalmoni- 
tor of assembler wijst deze vektor 
meestal naar een subroutine die ein¬ 
digt met de .R- instruktie (inhoud re¬ 
gisters laten zien). Hierdoor kun je 
onderdelen van machinetaalprogram- 
ma’s testen door ze telkens te laten 
eindigen met een BRK. 

Als de IRQ niet werd veroorzaakt door 
een BRK wordt er gesprongen naar 
vektor $0314/15. Deze is normaal ge¬ 
sproken gelijk aan $EA31. De hier be¬ 



ginnende routine wordt bij werken in 
BASIC 60 keer per seconde aangeroe¬ 
pen om de tijd te verhogen (Tl$) en om 
te controleren of er ook toetsen zijn 
ingedrukt. 

Het zou te ver gaan om hier alle bron¬ 
nen te gaan behandelen die een IRQ 
kunnen veroorzaken. 

Een belangrijk punt nog: het verbieden 
van interrupts. Resets kunnen in geen 
geval worden verboden. NMI’s kun¬ 
nen alleen per bron in de CIA 2 worden 
verboden. IRQ’s kunnen zowel per 
bron in de CIA 1 en de VIC 2, als in de 
processor worden verboden. Dat laat- 


Wat menig goede 
computer mist 
is een goede monitor. 



Afgebeeld zijn de ZVM-123 monochroom- en de ZVM-133 
kleurenmonitor. 


PERFEKTIE IN AUTOMATISERING 


Zenithdata systems 

Postbus 210 3730 AE De Bilt. Telefoon: 030-765844. 


Via het beeldscherm kijkt u als het ware in het brein van uw computer. 
Het is dus zaak dat een monitor een ragzuiver en helder beeld geeft van 
de spinsels van dat brein. Dat voorkomt fouten, ergernis en... hoofdpijn. 

Zenith monitoren hebben hun kwaliteit al wereldwijd bewezen. 
Monochroom (éénkleurig) met een groen of amber scherm, of in veel 
heldere kleuren. Bovendien zijn Zenith monitoren compatible met bijna 
alle belangrijke merken personal computers: 

Advance, Acorn, Apple, BBC, Commodore, IBM, Philips, Texas 
Instruments, etc. 

Ga eens kijken bij uw computerdealer of vraag vrijblijvend 
informatie aan. 

Dan zal ook de bijzonder vriendelijke prijs u opvallen. 



data 

systems 
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ste gebeurt met de instruktie SEI (SEt 
Interrupt disable status). Interrupts 
worden weer toegestaan met de CLI 
(CLear Interrupt disable status). 

Met SEI worden dus alle IRQ’s en BRK 
in een keer verboden. Dat wil niet 
zeggen dat er geen IRQ of BRK gege¬ 
ven kan worden, maar alleen dat de 
processor deze negeert. Mocht er tij¬ 
dens een SEI- conditie een IRQ zijn 
opgetreden, dan wordt deze direkt na 
een CLI of RTI alsnog uitgevoerd, ten¬ 
zij de IRQ-flag van de betreffende chip 
eerst werd teruggeset! Elou hier terde¬ 
ge rekening mee. 


Programma 

Het toetsenbord is via 2x8 lijnen 
verbonden met registers $DCOO en 
$DC01 van de CIA 1-chip. Om te 
controleren of er ook toetsen zijn 
ingedrukt, roept de Commodore 64 
in BASIC-mode 60 keer per secon¬ 
de een routine aan die o.a. de in- 
houd van deze registers bekijkt. Dit 
gebeurt met behulp van een timer- 
interrupt Als we nu de inhoud van 
$0314 en $0315 gelijk maken aan 
het begin van een andere routine 
(zie IRQ), kunnen we deze timer- 


interrupt zonder veel moeite benut¬ 
ten voor eigen doeleinden. Het pro¬ 
gramma van deze keer doet dit in 
”,regels " $9029 t/m $9030. 

Het doel hiervan is om elke 60e 
second een bit van een hires- 
scherm ”aan te zetten”. Niet zo 
spectaculair, maar wel een eenvou¬ 
dig en effektief voorbeeld van inter- 
ruptprogrammering. Let ook op het 
gebruik van tweetallige bewerkin¬ 
gen EOR, ROL en ROR. Een analy¬ 
se van dit programma volgt nog. 


P-register 

We komen nu terug op de nog niet 
behandelde bits van het P- register: de 
bits B, D, I, en V. 

Het B-bit (Break) wordt direkt na een 
IRQ 0 en na een BRK 1 gemaakt. Door 
dit bit te testen weet de processor of 
er naar de IRQ-, dan wel naar de BRK- 
routine moet worden gesprongen. 

Het D-bit (Decimal) dient om optellen 
en aftrekken in BCD (Binary Coded 
Decimal) -formaat mogelijk te maken. 
Het D-bit moet dan 1 worden ge¬ 
maakt. In de praktijk wordt dit vrij 
weinig gedaan, en ik zal dan ook niet 
op het hoe en waarom van deze me¬ 
thode ingaan. Belangstellende verwijs 
ik naar ”Programming the 6502” (de 
"Bijbel” van de 65xx-processor) van 
Rodnay Zaks. Er bestaat ook een Ne¬ 
derlandse vertaling van. 

Het l-bit (Interrupt) dient om IRQ’s en 
BRK’s toe te staan (CLI) of te ver¬ 
bieden (SEI). Na iedere interrupt wordt 
het l-bit automatisch 1 gemaakt om 
tijdens de interrupt-routine niet weer 
door een interrupt gestoord te wor¬ 
den. Na een RTI wordt het l-bit auto¬ 
matisch 0 gemaakt. 

Het V-bit heeft alleen een funktie bij 
rekenen volgens de ’Two’s Comple- 
ment-methode”. Ook hier krijgt de 
hobby-programmeur zelden mee te 
maken, en verwijs ik dus weer naar het 
boek van Zaks. 

Instrukties 

Voor de volledigheid zullen we alle 56 
65xx-instrukties nog eens afzonderlijk 
gaan bekijken. De meeste zijn we in de 
loop van deze serie al een keer tegen¬ 
gekomen, dus daar zullen we niet al te 
lang bij stil blijven staan. Zie voor 


10 d=3ó864 

20 for x = 0 to 79: read y 
30 poke a+x,y: next: sys a 
100 datal20, 32, 68,229,160,128,132,254 
110 dataléO, 0,132,251,162, 32,134,252 
120 datal52,145,251,200,208,251,230,252 
130 data165,252, 42, 16,243,134,252,169 
140 data 28,141, 24,208,169, 59,141, 17 
150 data208,169,144,141, 21, 3,169, 63 

160 datal41, 20, 3, 88,144,254,102,254 

170 data200,208,249,230,252,144,245,173 
180 data 13,220,177,251, 69,254,145,251 
190 datal04,104,104, 40,102,254, 8, 64 
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volgorde en groepsindeling het sche¬ 
ma uit de vorgie aflevering. 

Deze aflevering was de laatste, die 
specifiek over de 65xx-processor 
ging. Ik realiseer me, dat de informatie 
die erin werd gegeven op velen een 
nogal "droge” indruk zal hebben ge¬ 
maakt. Machinetaal staat in verhou¬ 
ding tot BASIC als een bit tot een 
hires-scherm: nuttige saaiheid tegen¬ 
over onzelfstandige glamour. En de 
meeste mensen voelen zich nu een¬ 


maal meer aangetrokken tot het laat¬ 
ste dan tot het eerste, wat hun goed 
recht is. 

Aan een taal heb je pas wat als je in het 
buitenland komt, dat wil zeggen: als je 
hem in de praktijk kunt toepassen. 
Daarom zullen we ons in de volgende 
afleveringen bezig gaan houden met 
het programmeren van de Commmo- 
dore 64-chips voor beeld, geluid en 
input/output. 

S.B • 
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Op hardwaregebied, dus insteken, aansluiten, optuigen of connec- 
ten, blijft er van alles in beweging, de uitbreidingen en modules 
vliegen je nog steeds om de oren. 




HARD 


WAR® 



Zo kregen we kort geleden nog wat 
nieuwe hardware uitbreidingen 
voor de C-64 onder ogen, die zeker 
het vermelden waard zijn. Een er¬ 
van is de 'Auto start Eprom Bank’, 
die geleverd wordt door R.A.D. 
Computer & Electronic Supplies in 
Amsterdam. 

EPROM BANK 

Deze print (aansluiting expansie- 
poort) kost ƒ125.- en opent voor de 
serieuze gebruikers een scala van 
nieuwe mogelijkheden. 

Standaard is er op deze print een 
RESET-toets en 1 PROM geplaatst, 
waarnaast de mogelijkheid bestaat 
om maximaal 5 (E)PROMS van 4K of 
8K op de C-64 aan te sluiten. Eproms 
zijn geheugenchips, die je zelf kunt 
volladen met programma’s, die er dan 
permanent (tot je ze zelf weer wist) in 
blijven staan. Zelfmaak insteekmodu- 
les zou je zo’n Eprombank kunnen 
noemen. 

Deze bank van EPROMS is geschikt 
om gekochte of zelfgeschreven pro¬ 
gramma’s in zowel Basic als machine¬ 
taal te runnen, zonder deze eerst van 
tape of disk in te laden. Een grote 
vooruitgang, zeker als je bedenkt dat 
b.v. Simon’s Basic etc. via deze 
Eprombank automatisch tot de stan¬ 
daard uitrusting van de C-64 kan gaan 
behoren. De PROM bevat een menu, 
waardoor bij het opstarten een keuze 
kan worden gemaakt uit de op 


EPROM aanwezige software. Basic- 
programma’s starten direkt. Er is vol¬ 
doende ruimte aanwezig om ook nog 
op een normale manier met de com¬ 
puter te kunnen werken, zonder dat de 
print verwijderd hoeft te worden. 

De nederlandse handleiding geeft dui¬ 
delijke aanwijzingen voor het gebruik. 
Daarin kun je tevens lezen, hoe je te 
werk moet gaan om je eigen program¬ 
matuur, beveiligd en zelfstartend, op 
deze bank te krijgen. Daarvoor heb je 
echter wel een EPROM-programmer 
nodig en die moet je apart aan¬ 
schaffen. 

Enkele feiten: elk programma (tot 
max.23K) bezet minimaal 1 EPROM- 
plaats. ROM-programma’s zelfstar¬ 
tend (i.p.v. Menu). De print is uit te 
breiden tot 56K! Voor Simon’s Basic 
op EPROM is een aparte versie nodig. 
De print is niet al te zorgvuldig uitge¬ 
voerd. Software voor de EPROMS en 
de EPROM-programmer zijn te koop 
bij dezelfde leverancier. De print past 
helaas niet goed op de SX-64. 

The Final Cartridge. 

H.&P. Home en Personal Computers 
uit Rotterdam brengt een uitbreiding 
op de markt, waarvan wordt beweerd, 
dat je verder niets meer nodig hebt, 
om alles uit de C-64 te halen wat er in 
zit. Het systeem bestaat uit een unit 
die op de expansiepoort moet worden 
aangesloten, en daarnaast een (Cen¬ 
tronics) printerkabel, die geschikt is 


gemaakt om op de userpoort te plug¬ 
gen. Het voornaamste van deze final 
cartridge is dan wel het nieuwe opera- 
tingsysteem waarop de 64 z’n werk 
gaat doen. 

De cartridge bevat een ’logic board’ 
met 8 IC’s en 16K ROM, waarop dit 
totaal nieuwe operating systeem. De 
oude Kernal van de 64 wordt niet meer 
gebruikt, maar volgens H&P runt 
99.9% van alle C-64 software op dit 
O.S. Helaas wordt er niet bij vermeld 
welke programma’s nu juist niet wer¬ 
ken. De unit voegt maar liefst 20K 
RAM aan het Basic gedeelte toe, 
waardoor je de beschikking krijgt over 
63000 Bytes. Verder een goed wer¬ 
kend Centronics printerinterface, 
waarmee ook alle Commodore tekens 
op de meeste printers kunnen worden 
uitgeprint. Dit interface werkt met alle 
bekende printers, nou ja vrijwel alle. 
Wel is het bij bepaalde printers helaas 
nodig vooraf enkele pokes in te typen. 
Dit betekent, vrees ik, dat bij commer¬ 
ciële software ook deze interface niet 
altijd zal werken. Printers die geschikt 
zijn voor Hires-dumps kunnen met 
hulp van deze uitbreiding daartoe via 1 
toets worden geaktiveerd. De meege¬ 
leverde (nederlandse) beschrijving 
geeft voor een paar printertypes voor¬ 
beelden hoe je te werk moet gaan. 
Naast deze nieuwigheden beschikt 
deze uitbreiding over de min of meer 
standaard toolkit-commando’s zoals 
snelladen/saven, DOS 4.0, waarbij nu 
ook DLOAD en DSAVE, APPEND en 
CATALOG, de bekende program- 
meerhulpen en de machinetaal-roo- 
nitor. 

Al met al een aardig stuk werk, waar¬ 
voor je ƒ198,- moet betalen. Deze 
Final Cartridge is voor hen, die moeite 
hebben met het aansturen van hun 
alledaagse printers op de niet alle¬ 
daagse C-64 aansluiting wel interes¬ 
sant. Bij aankoop zou ik willen advise¬ 
ren om je eigen software en printer 
eerst met deze unit te proberen, zodat 
je achteraf niet voor verrassingen 
komt te staan. 


Deze module is aantrekkelijk, 
zeker omdat de prijs niet ongun¬ 
stig afsteekt tegenover andere 
interfaces met dezelfde moge¬ 
lijkheden. • 
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Software 
voor 
de C-16 



Het was al haast een illusie geworden, maar onlangs stootten we toch op enkele 
programma’s voor de C-16. Ook bekeken we een Plus/4 cartridge. Om te beginnen 
waren alle programma-cartridges van Commodore zelf. Andere producenten durven 
het kennelijk (nog) niet aan, software te ontwikkelen voor deze "zwart” take van de 
Commodore-familie. 



JACK ATTACK 


Een spel in arcadestijl vooreen of twee 
personen. Na het inpluggen van de 
spelcassette kan een speelveld wor¬ 
den gekozen met behulp van de F1 
toets. Er zij 64 verschillende spelsitua¬ 
ties in negen moeilijkheidsgraden, 
waarin JACK (de speler dus) op bal¬ 
lonnen moet jagen. Hij kan daarbij 
gebruik maken van blokken, die ver¬ 
plaatsbaar zijn, stapelbaar en kunnen 
drijven op het vijvertje onderaan op 
het scherm. Kortom, niet iets echt 
nieuws, maar uiteindelijk toch iets 
voor de Plus/4 en de C-16. 

De eerste indruk van de spelhandlei- 
ding is gunstig als je de twaalf vertalin¬ 
gen ziet. Er is zelfs een Arabische bij! 
Dat verandert als je de Nederlandse 
(nou ja, Nederlandse) gebruiksaanwij¬ 
zing leest. Die Nederlandse versie 
doet wat houterig aan. Alsof iemand 
hem met een Nederlands woorden¬ 
boek in de hand heeft opgesteld. Zon¬ 
der overigens gehinderd te zijn door 


enige kennis van de Nederlandse taal. 
Erg slordig, maar we zien het vaker. Ik 
zelf zeg liever joystick dan "stuurstok”! 

Adventure 

Gunstiger doen de drie adventures 
aan. De naam Scott Adams zal bij 
velen een belletje doen rinkelen. In de 
Adams-traditie zijn deze tekstadven- 


tures echte hersenbrekers. Alleen 
tekst mag dan saai lijken, PIRATE IS- 
LAND, STRANGE ODYSSEY en ATO- 
MIC MISSION zijn alles behalve slaap¬ 
verwekkend. De pittige speelplots 
staan borg voor uren adventureple- 
zier. Al moet wel worden vermeld, dat 
de avonturier in spe wel de Engelse 
taal redelijk moet beheersen. De 



UITBREIDINGSMODULEN VOOR UW 
COMMODORE 64 

Simon Vestdijk Erf 177, 3315 CW Dordrecht Telefoon 078-210181 


TAPE SPEEDSAVER 64 


de meest gebruikte snellaadmodule in NEDERLAND! 
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HELP-toets van de computer heeft in 
het spel een duidelijke functie. Soms 
krijgt de avonturier hulp, een andere 
keer moet hij het zelf maar uitzoeken. 


PIRATE ISLAND 


Het avontuur begint, zoals dat vaak 
het geval is, op een geheel onver¬ 
wachte plaats. In dit geval in een flat in 
Londen. Daar zijn ook de aanwijzingen 
voor het avontuur te vinden. Een met 
bloed geschreven aanwijzing van ene 
Long John Silver in een half vergaan 
boek en een geheime gang achter een 
boekenkast nodigen iedere avonturier 
uit op zoek te gaan naar de verborgen 
schatten op Pirate Island. 

Dat het "slechts” tekst is, zoals een 
verwende avonturier zou kunnen stel¬ 
len, doet aan de kwaliteit van dit ad- 
venture niets af. Het is eigenlijk net als 
het lezen van een boekrje kunt je eigen 
beeld vormen van het verhaal. Bij een 
film is dat beeld al voor je gevormd. 


STRANGE ODYSSEY 


Inderdaad een zeer vreemd ruimte 
avontuur. Een motor, die niet wil star¬ 
ten, een console met een rode knop en 
een klem zittend service-paneel vor¬ 
men de inleiding van een reis vol avon¬ 
tuur, spanning en loerende gevaren. 
Dodelijke methaangassen en buite¬ 
naardse wezens bedreigen de avontu¬ 
rier. 


ATOMIC MISSION 


Heel anders van karakter is het derde 
avontuur. Geen ruimtewezens of pira¬ 
ten. Wel een grote nucleaire reactor. 
Mensen werken er niet, want de reac¬ 
tor is geheel geautomatiseerd. Toch 
loopt er iemand rond: een saboteur. 
De avonturier moet hem vinden, maar 
er is niet veel tijd. De bom, in zijn 
lichaam geïmplanteerd, staat nog op 
veilig. Maar voor hoelang? 

Eigenlijk een heel beklemmend adven- 
ture. Want waar ligt de scheiding tus¬ 
sen fictie en werkelijkheid. Of is het 
misschien een toekomstvisie van 
Scott Adams. Er moet gezegd wor¬ 
den, dat de hele situatie in het avon¬ 
tuur iet ver naast de werkelijkheid 
staat. Een spannend avontuur en 
vooral een die te denken geeft. Jerein- 
ste Sience-Fiction. 


Tot zover de Scott Adams Adventu- 
res. Volgens de verpakkingen zijn er 
slechts drie (deze drie dus) van deze 
adventures op de markt. Het leuke van 
Adams is de consequent aangehou¬ 
den opbouw van de verhalen. De com¬ 
mando’s zijn in alle drie gelijk, zodat je, 
als je er een hebt gespeeld, een ander 
zo kan beginnen. 

Plus/4 LOGO 

De laatste programmacassette in de¬ 
ze bespreking is de LOGO-module 
voor de Plus/4 computer van Commo¬ 
dore. Niet geschikt voor de C-16 he¬ 
laas, zoals we abusievelijk vermelden, 
maar dat zijn we wel gewend van 
Commodore! We denken overigens, 
dat het wel werkt met de uitbreidings- 
module van Artic, maar we hebben 
(nog) geen zekerheid. Bij de LOGO- 
module zelf is een zeer uitgebreid 
handboek en een utility-disk. Op deze 
disk staan verschillende procedures 
en demo’s voor direct gebruik. 

Deze LOGO-versie komt, evenals die 
voor de C-64, van Terrapin (MIT) en is 


van goede kwaliteit. Het is natuurlijk 
logisch, dat Commodore dezelfde, zij 
het aangepaste versie, gebruikt voor 
de Plus/4. Alle LOGO primitieven zijn 
aanwezig en ook de animatie- en ge¬ 
luidsmogelijkheden ontbreken niet. 
Ook hier zijn de LOGO primitieven in 
het Engels, maar dat is nauwelijks een 
bezwaar te noemen, ook niet voor 
Nederlandse kinderen. Als je meer te 
weten wil komen over de Commodore 
LOGO versies, raad ik je aan de reeds 
verschenen Commodore-lnfo’s nog 
eens door te bladeren en we komen 
binnenkort uitgebreid op Logo terug. 
Toch is het jammer, dat de LOGO 
alleen voor de Plus/4 computer be¬ 
schikbaar is. Een C-16 versie zou m.i. 
veel beter in de markt liggen, gezien het 
aantal verkochte machines in Neder¬ 
land. Maar ja, eigenlijk worden de twee 
"nieuwe” computers van Commodore 
niet echt serieus genomen. Maar we 
doen ons best, Commodore-lnfo heeft 
zijn eigen "minderheden-beleid”. 

Bob Munniksma • 


Het gemak 
dient de mens... 
04950-35118 

Wij geven u graag alle informatie over 
onze computermeubelen en sturen u 
een dealerlijst toe. 
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Peter Kremer geeft kritisch commentaar op een aantal boeken. 


Zakboekje 6502 
E.Doppenberg, uitgave KTT ƒ21,- 

Machinetaal-liefhebbers kunnen niet 
buiten dit soort werkjes, waar alle in¬ 
formatie over hun favoriete processor 
in is opgeslagen. Dit boekje levert 
alles, wat men nodig heeft, maar echt 
lekker doorlezen is er niet bij, dit is een 
naslagboekje, om 
liggen om snel de 
juiste gegevens 
op te zoeken. Het 
heeft een handig 
formaat en geeft 
een overzicht van 
6502 en afgeleide 
processoren zo¬ 
als de 6510 en de 
65C02, de CMOS 
variant. 


Het Groot, Compleet, 
Nederlandstalig Commodore 64 
Boek 

P. Neumann : uitgave Kockelkoren 
Publ., ƒ 45,- 

Als je dit boek koopt moet je eerst 
goed kijken of het wel goed in elkaar 
zit. Mij is het overkomen dat bij een 
exemplaar 10 pagina’s ontbraken en 
andere pagina’s niet in de juiste volg¬ 
orde zaten. Mijn tweede exemplaar 
was beter, doch ook hier zaten meer¬ 
dere pagina’s door elkaar. Op de oms¬ 
lag staat vermeld: ”voor beginners en 
gevorderden”. Mijn mening is dat de 
beginner hier weinig aan heeft, tenzij 
hij alleen maar en zonder er iets van te 
begrijpen, programma’s wil overty¬ 
pen. De schrijver legt bij de meeste 


programma’s de werking niet uit. Dat 
moetje zelf maar uitzoeken schrijft hij. 
Door de slechte drukkwaliteit zijn ver¬ 
schillende programma’s moeilijk te 
ontcijferen en vergt het heel wat puz¬ 
zelen en experimenteren voordat de 
zaak loopt. Bovendien is de herkomst 
van een aantal programma’s "du¬ 
bieus” en daarmee is dit boek ook al 
niet onze favoriet. 


The Elementary Commodore 64 
William B. Sanders: uitgave Data- 
most, ƒ 37,50 
ISBN 0-8359-1702-9 

Dit Engelstalige boek is werkelijk een 
van de betere boeken voor de begin¬ 
ner. Vlot en bovenal humoristisch ge¬ 
schreven en voorzien van talrijke car¬ 
toons. Op een zeer heldere manier 
worden alle mogelijkheden van de 64 
uiteen gezet. Daarnaast wordt er uit¬ 
gebreid ingegaan op het programme¬ 
ren in BASIC. Echt de moeite waard. 


Tips & Trucs voor de 
Commodore 64 

Angerhausen, Englisch, en Gerrits: 
Uitgave Data Becker/Bruna, ƒ 59,-. 
ISBN 90-229-3322-9 

Een nuttig boek voor hen die uit de 
beginnersschoenen zijn. Wat de titel 
beloofd wordt volledig waar gemaakt. 
Alle programma’s worden uitvoerig 
uitgelegd. Van de machine-taal pro¬ 
gramma’s is er ook altijd een BASIC 
laadprogramma afgedrukt. Er wordt 
zeer uitgebreid ingegaan op de wer¬ 
king van CP/M. Degene die niet met 
dit besturingssysteem werkt moet dat 
maar voor lief nemen. 


Mastering the Commodore 64 
door Mark Greenshields: Uitgave 
van Interface London, ƒ 40,-. 

ISBN 0-907563-38-4 

Met deze titel als vlag wordt de lading 
niet gedekt. Veel belangrijke zaken 
worden zeer summier afgedaan (zoals 
bijv. geluid en grafische mogelijkhe¬ 
den, en rand apparatuur). Er staat een 
leuk stukje in over machine-taal, maar 
iemand die daar wat over wil weten is 
beter uit met een boekje dat alleen dat 
onderwerp behandelt. 

Jammer, maar helaas is dit Engelstali¬ 
ge werkje niet aan te bevelen. 


Doe-het-zelf programma’s op de 
C-64 

D.Kreutner, uitgave Academie Ser¬ 
vice ƒ 39,50 

Een behoorlijk stevige stapel pro¬ 
gramma’s en de doe-het-zelver kan er 
wel even tegenaan, als hij ze allemaal 
wil overtikken. Het gaat om relatief 
ingewikkelde programma’s, die ook 
wel praktijkgericht zijn. Zo is er een 
aantal boekhoudtoepassingen, prijs¬ 
lijst, chequeadministratie en punten- 
lijst. Maar ook veel spelletjes, databa¬ 
se programma’s, Utilities en een EDIT 
functie om gegevensbestanden te ge¬ 
nereren. In totaal 40 programma’s, die 
bepaald niet erg simpel zijn, men is 
uitgegaan van de volledige benutting 
van de Basic mogelijkheden. Prettig 
voor wie ook echt iets verwacht van 
zijn moeizaam overtikken. Jammer, 
dat een regeltester ontbreekt, maar 
gezien de goede leesbaarheid van de 
listings geen onoverkomelijk bezwaar. 


er bij te hebben 
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o Basic Min 


Een rubriek van Nico Baaijens me 


Het strand of zwembad roept natuurlijk zeer dwingend 
nu de zomer dan toch nog eindelijk gekomen is. Voor 
de korte avonden bestaat er natuurlijk geen betere 
manier om van uw computer te genieten dan met een 
miniatuurtje, namelijk leuk en toch niet te lang. Geluk¬ 
kig konden we weer een keuze maken uit een ruime 
hoeveelheid materiaal ingestuurd door Commodore- 
Info-lezers. 

Niet alles is altijd even briljant maar er zitten toch weer 
diverse huzarenstukjes bij, die even ingeklopt moeten 
worden. 

Het begint een goede gewoonte te worden onze rubriek 
voor snelle intoetsers te beginnen met de Tien met de 
Griffel. Die gaat deze keer naar Wim Tubbax uit Laak- 
dal-Veerle, België. 

Cryptografie 

Het miniatuurtje van Wim Tubbax bevat een fantastisch 
algoritme (computer-verwerkingsmethode) om teksten 
om te zetten in geheimschrift en andersom om geheim 
geschreven teksten weer terug te vertalen naar klare 
taal. Het programmaatje is meer dan alleen een aardig¬ 
heidje. Een nuttige toepassing ontstaat als de algoritme 
wordt verwerkt in een Basic-programma, waarmee teks¬ 
ten worden versluierd. Zou de diskette of de tape in 
verkeerde handen komen, dan kan de dief, cq. de 
oneerlijke vinder geen misbruik maken van de informa¬ 
tie, tenzij hij bereid is een jaartje of wat puzzelend door 
te brengen om de code te kraken. 

Nog een toepassing is het versluieren van DATA-state- 
ments in een programma. Als dat programma bijvoor¬ 
beeld een woorden- raadspelletje is, zal degene, die de 
listing intypt, er geen plezier meer aan beleven als hij de 
oplossingen al heeft overgetypt. 

1 A$=”ABCDEFGHIJKLMNOPQR 

STUVWXYZ1234567890 D$=””: INPUT’GEEF 

TEKST”;C$ 

2 B$=”QW1 ER2TY3UI40P5AS6DF7GH8JK9LZ X 
XCVBMNO”: INPUT”<Shift/Clr>1 = CODEREN 2 = 
DECODEREN”;X 

3 IFX=2THEN 6 

4 FORI = 1TOLEN(C$): FOR N = 1T037: IF MID$(A$,N 
,1)=MID$(C$,I,1) THEN D$=D$+MID$(B$,N,1) 

5 NEXTN: NEXTI: PRINT D$: END 

6 FORI = 1TOLEN(C$): FOR N = 1T037: IF MID$(B$,N,1)= 
MID$(C$,I,1) THEN D$=D$+MID$(A$,N,1) 

7 NEXTN: NEXTI: PRINT D$: END 

Belangrijk: als dit programma correct is ingetypt, moet 
na de prompt: ”Geef tekst” de volgende code worden 
ingevoerd: P3150WQQ3URPD en vervolgens de deco- 
deer-optie (2) worden gekozen. 


Blokjes 

Miniatuurtjes die, al of niet in kleur en met geluid, de 
raarste dingen met het beeldscherm uithalen, blijven bin¬ 
nenkomen. Ik moet ze steeds vaker terzijde leggen 
omdat ze in herhalingen gaan vervallen. De inzending 
van Harmen Siemelink uit Ede was echter wel aardig: 

10 PRINT ”<Shift/Clr>”: l=RND(1)*159: POKE 53280,0: 
POKE 53281,0 

20 FORT=1024TO2023STEP1024/1: POKE T,160: POKE 
54272 +T,I: 1 = 1+1 
30 IFI=>160THEN 1=1 
40 NEXT: GOTO20 

Nog meer grafische grappen van dezelfde auteur: 

10 POKE 53280,0: POKE 53281,0: INPUT”<Shift/Clr> 
GETAL”;A 

20 FORT=OTOA: PRINT ”(PUR)/(OMLAAG)”;: NEXT 
30 FORT=0TOA: PRINT ”(BLU)/(OMHOOG)”;: NEXT 
40 GOTO20 

Bij dit miniatuurtje is het boven de 22 niet zo leuk meer. 
Voor speciale effecten gelden de getallen: 
0,1,3,4,7,9,13,18,19 en 20. 

Raadselachtig is de ’schuifband’: 

10 :::::::::::::::::: POKE 53281,6:POKE 
53281,14: GOTOIO 

Sommige inzenders zijn te bescheiden. Ze hebben geen 
hoge pet op van zichzelf, zoals B. Martensen uit Ermelo. 
Hij schrijft: "Mijn bijdrage is niet erg interessant, maar de 
rubriek moet toch vol”. Nou ja, zo erg is het niet hoor! 
Maar vooruit. 

10 Tl$=”000000”: PRINT ”<Shift/Clr>” 

20 PRINT ”<HOME>” 

30 PRINT Tl$ 

40 IFTI$=”000005”THEN POKE 53280,8: POKE 53281,1 
50 IFTI$=”000010”THEN POKE 53280,1: POKE 53281,8 
60 IFTI$=”000015”THEN POKE 53280,7: POKE 53281,0 
70 IFTI$=”000020”THEN POKE 53280,0: POKE 53281,7 
80 IFTI$=”000025”THEN 100 
90 GOTO20 
100 END 

We blijven nog even bij de klok en maken hem tikkend 
volgens de methode van H. Link uit Amsterdam. 

10 Tl$=”130000”: PRINT ”<Shift/Clr>” 

20 PRINT ”<HOME><2xNEER>” 

PRINT LEFT$(TI$,2)”: ”MID$fTI$,3,2)”: ”RIGHT$(TI$,2) 
30 POKE 54296,15: POKE 54277,8: POKE 54276,65: FOR 
T=1TO840: NEXT: POKE 54276,0: GOTO20 
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;orte tot zeer korte programma’s. 


De eerste inzendingen voor onze programma-prijs- 
vraag, waarbij het gaat om iets langere (maar ook niet 
te lange) programma’s, komen inmiddels ook binnen. 
Denk eraan, daarmee valt een Novex kleurenmonitor 
te winnen. De sluitingsdatum voor inzending is 25 
september 1985, U heeft dus nog even de tijd. De 
voorwaarden van onze wedstrijd staan elders in dit 
nummer nog een keer afgedrukt. 


”Wat er allemaal gebeurt op het scherm, weet ik niet, 
maar het is wel mooi”, schrijft Roland Overwijk uit Alp- 
hen a/d Rijn. Hier is zijn miniatuurtje: 

1 F0RA=1T0255: POKE 53272,A NEXT: G0T01 

Deze inzender vond ook nog een aardige POKE voor de 
C64: 

POKE 808,100 

DataPuls 

Omdat het stomvervelend is grote blokken met DATA- 
regels van een of andere leuke game te moeten naspeu¬ 
ren op fouten als er geen checksum-controle is, heeft 
Robin Kramer uit Amsterdam een ’knutseltje’ geschre¬ 
ven dat als subroutine enorm van pas zal komen. In 
plaats van moeizaam naspeuren en vergelijken tussen 
listing en wat er op het scherm staat, ga je nu onderuit 
gezakt in je stoel zitten en laat de VIC, de CBM of welk 
Commodore-mirakel dan ook, het werk doen door de 
DATA bliepend langs te lopen. Robin noemt het een 
’DataPuls’. 

60000 RESTORE: POKE 36878,15: SD=36876: 

SN=36874: HS=128: TS=158: ES=188 

60001 FORI=1TO<aantal data>: READD$: FQ=LEN(D$) 

60002 ONFQGOTO 60003,60006,60008: POKE SN,254: 
GOSUB60011: POKE SN,0: GOTO60010 

60003 EH=VAL(D$) 

60004 GOSUB60013: ONFGOTO 6 OOIO 

60005 FORJ=1 TO EH: POKE SD,ES: GOSUB60011: 
POKE SD, 0: GOSUB60012: NEXT: GOTO 60010 

60006 TT=VAL(LEFT$(D$, 1)): EH=VAL(MID$(D$,2,1)) 

60007 FORJ=1TOTT: POKE SD,TS: GOSUB 60011: 
POKE SD, 0: GOSUB 60012: NEXT: GOT060004 

60008 HT=VAL(LEFT$(D$,1)): TT=VAL(MID$(D$,2,1)): 

EH=VAL(MID$(D$,3,1)) 

60009 FOR J=1 TO HT: POKE SD,HS: GOSUB60011: 
POKE SD,0 : GOSUB 60012: NEXT: GOT060007 

60010 GOSUB60012: NEXTI: POKE 36878,0: END 

60011 FORT=1TO200: NEXT: RETURN 

60012 FORT=1TO50: NEXT: RETURN 


60013IF EH=0 THEN POKE SN,175: GOSUB60011: 

POKE SN,0 : GOSUB60012: F=1: RETURN 
60014 F=0: RETURN 

Het is geen simpel programma. Enige nadere toelichting 
is dus op z’n plaats. De foutzoek-routine is bedoeld 
voor kleine getallen, zoals POKE ’s. Het is ook geen 
geschikte manier om fouten te zoeken in DATA van 
rekenkundige programma’s want dat zou te veel ver¬ 
schillende bloepjes en bliepjes geven en dat is niet meer 
te volgen. 

Robin Kramer stelt voor een demo te doen door een 
DATA-regel in te voeren met 500,50,5,0 erin. Je hoort 
dan vijfmaal honderdtal, tiental, eenheid en één nul. 

Zoals het programma hierboven staat, is het geschikt 
voor de VIC20. Commodore-64 gebruikers moeten in regel 
60000 in de variabele SD het adres voor de hoogste 
toongenerator plaatsen (SD = 54273) en in SN de waarde 
voor de laagste toongenerator (SN = 54272). Ook moet de 
poke in 60000 anders 36878-^54296 en de pokes voor het 
geluid worden 54277,64 54276,17 54278,128. Nog een 
opmerking over regel 60001, waar de FOR/NEXT-loop 
moet lopen tot het aantal te controleren DATA-statements. 
Als dit teveel is om op te tellen, kan een te hoog getal 
worden gegeven. Het programma loopt er dan voorbij met 
de bekende OUT OF DATA-foutmelding. 

Beeldbeweging 

Uit Ferwerd in Friesland kwam van M.R. Themmen een 
miniatuurtje, dat het beeldscherm in zijn geheel een rare 
beweging laat maken. 

10 FORA=0TO15: POKE 53270,A 
20 FORB=0TO80: NEXT: NEXT 
30 FORA= 15TOOSTEP-1: POKE 53270,A 
40 FOR B=0TO80: NEXT: NEXT 

Iets dergelijks, maar op een heel andere wijze gepro¬ 
grammeerd, werd ingezonden door M. Hammie uit Dor¬ 
drecht, die als suggestie geeft zijn routine te gebruiken 
bij de explosie in een game. 

10 FOR T=192 TO 199 

20 POKE 53270,T: POKE 53265,T-176: NEXT 

30 FOR T=199 TO 192 STEP-1 

40 POKE 53270,T: POKE 53276,T-176: NEXT 

50 GOTO 10 

Voor een 'geinig geluidje’ verschafte Stephan Zwanikken 
uit Hattem dit Basic-regeltje: 

5 F0RQ=54296T054295STEP-.1: FORT=0TO15:POKE 
Q,T: NEXT: NEXT: GOT05 
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En om het beeldscherm de aandacht van een spelletjes- 
speler te laten trekken: 

5 PRINT ”<Shift/Clr>”: F0RCH1T065: POKE 53344,Q: 
POKE 53345,Q; NEXT 

Tekenen met de cursor, die met de Commodore- en de 
CTRL-toetsen van kleur verandert, doe je met het minia¬ 
tuurtje van Steven van der Velde uit Vlissingen. 

10 PRINT ”<Shift/Clr>” 

20 GETA$ 

30 PRINT A$;”<RVS/ONxSPATIE><RVS/OFF> 
<CRSR/LEFT>”; 

40 GOTO20 

Het ’inkleuren’ van de cursor kan ook worden gepro¬ 
grammeerd met: 

30 PRINT A$;”<RVS/ON><KLEURxSPATIE> <RVS/ 
OFFxCRSR/LEFT>”; 

Van Leo Groenendijk uit Delft kreeg ik een aardig pro¬ 
grammaatje dat een eindloos mozaïek laat zien. 

10 POKE 53280,0: POKE 53281,0: PRINT ”<Shift/Clr>” 
20 B=1024: A=RND(1): POKE B+ A*B,250: POKE B* 
54+A*B,2+ RND(1)*14: GOTO20 


Volgens L.J. van der Goes uit Bom in Limburg laat het 
onderstaande miniatuurtje alle karakters van de C-64 
voorbij trekken op het scherm. 


10 PRINT ”<Shift/Clr>” 

20 FORL=0TO191: A=INT(L*RND(1)+1) 

30 PRINT CHR$(A);: NEXT 
40 GOTO20 

Ik had nog meer ingezonden miniatuurtjes willen plaat¬ 
sen, maar enkele inzendingen geven problemen. Ze 
lopen niet goed en waarschijnlijk zijn er type- of over- 
schrijf-fouten in geslopen. Daarom vraag ik de volgende 
inzenders hun huiswerk nog eens over te doen: Marcel 
Jansen uit Noordwijkerhout en M. de Big uit Zevenhui¬ 
zen. Erik Hendrikx uit Westervoort vraag ik zijn bijdragen 
wat beter toe te lichten. Ik begrijp echt niet wat de 
bedoeling is van zijn miniatuurtjes. 

Ad Struijk uit Gouda zond een interessante brief, maar 
de listing ontbreekt of is ergens zoek geraakt. De pro¬ 
grammaatjes van Mark Westbroek over het omzetten 
van getallen naar andere talstelsels kan ik helaas niet 
plaatsen, omdat dit al zo vaak aan de orde is geweest. 
Ook voor het maken van de tafels van J. Poort uit Waal¬ 
wijk had ik graag iets anders. Volgende keer beter dus. 

Ook de volgende Commodore/lnfo moet weer een 
miniatuurtjes-rubriek hebben, maar dat hangt helemaal 
af van de actievelingen en vindingrijken onder de 
lezers, die ook in deze (tot dusver) wat aarzelende 
zomer de computer niet vergeten. Aarzel dus niet en 
houd uw kleine, handige, leuke en leerzame miniatuur- 
programmaatjes niet alleen voor uzelf. • 


iPrinters 


MPS 801 ƒ499 

80 koloms, 50 cps, 7x6 matrix 

MPS 802 ƒ 999 

80 koloms, 80 cps, 8x8 matrix 

MPS 803 ƒ 679 

80 koloms, 60 cps, 7x6 matrix 

BrotherMP1009 ƒ 699 

80 koloms, 50 cps, 9x9 matrix 

BrotherHR5C ƒ499 

80 koloms, 30 cps, 9x9 matrix 

BrotherHRIO ƒ1099 

letterwielpr, 13 cps, NIEUW!! 

STAR SG 10C ƒ1199 

80 kolom, 120 cps, NLQ, Commodore 
Interface 

STAR SG 15 ƒ1599 

132 koloms, 120 cps, NLQ 

Sanplé2000 ƒ 999 

letterwiel 18 cps, parall. 


do **® \loo 


MONITORS 


Slipstream met C64 kabel, 

80 kol, groen of amber ƒ 399 

Philips TP200 ƒ 299 

groen met geluid 

Daewoo ƒ 299 

groen met geluid, CBM kabel 

Commodore 1702 kleur ƒ 975 

Bel voor de 
laagste prijzen 

078-311516 


Diskettes per 10 
Private label SS/DD ƒ 45 

Nashua SS/DD ƒ 49 

Fuji SS/DD ƒ 69 

Scotch SS/DD ƒ 79 

Diskette boxen v.a. ƒ 25 

Teletron 

1200 modem ƒ 598 

Prism 1000 modem ƒ 598 
kompleet met software! 

Slipstream cass.recorder 
De bestel! ƒ129 

Verder de bekende KCS en 
Weka uitbreidingsmodules en 
alle Data Becker boeken in 
voorraad. 

_ alle prijzen incl BTW 


pe SHOP 


PERSONAL COMPUTERS 

Nieuwstraat 26,3311 XR Dordrecht - ÏOO mtr vanaf V&D 


32 





• M a Met o.a. Kokos I en II - Letterraam - Grafiek - Doolhof - C-16 

1 T Maestro - Vic-invaders - Vingervlug - Dubbelborder (versie 2) - 

Ai A JUIË v wUI/ Sprites opnieuw - Datamaker - Delete - Smooth scroll etc. 


















PR1NT-0UT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT 


Kokos I (vervolg) 

50 readasifa>=0thenpoke33792+b,asb=b+i 
a gato50 

68 readaiifa>=0thenpake34304+c,asc=c+l 
8goto60 

65 readas ifa>=0thenpoke34560+d,asd=d+1 
s goto65 

100 data 173,28,212,73,255, 141,15,212,20 
1,255,200,5,169,128,141,18,212 
110 datal74,6,207,20B,3,76,51,133,173,0 
,208,201,40,240,3,76,254,132 
115 dat al 73,5,207,240, 10,169,182,141,24 

8.119.169.183.141.249.119.169.. 141, 

5,207 

120 dat al 73,224,206,208,3,76,232,132,17 

3.. 220.41.16.205.225.206.208.3.76.2 
31 

130 data 132,173,225,206,73, 16, 141,225,2 
06,240,77,138,10,168,169,210,153,1, 
208 

140 datal 69, 192,133,251,169,92, 133,252, 
162,11,160,2 

150 datal89,226,206, 145,251,202,136,16, 
247,165,251,24,105,8,133,251,138,16 
, 235 

160 datal 62, 182,142,248, 119,232, 142,249 
,119,174,6,207 

170 data206,224,206,208,19,169,0,141,4, 
207,169,13,157,39,20B 

171 dat al 73,27,208,61,40,207, 141,27,208 
180 data234,96,138,10,168,169,222,153,1 

, 208 

190 datal 69, 192,133,251,169,92,133,252, 
162,11,160,2 

200 dat al 89,238,206,145,251,202,136,16, 
247, 165,251,24,105,8,133,251,138,16 

235 

210 dat al 62, 186, 142,248, 119,232, 142,249 
,119,169,0,141,15,212,169,16,141,18 
,212 

220 dat al 69,22, 141,19,212,169,17,141,18 
,212,96,189,39,208,201,253,240,68 
230 datal73,27,208,29,30,207,141,27,208 
,169,6,141,224,206,96 
240 datal73,2,20B,201,29,208,46,173,0,2 
20,41.16,208,39 

250 datal89,39,208,201,253,208,32 
260 datal 42,49,207, 169,113,157,222,207, 
169,255,157,228,207 

270 dat al 69,0,141,6,207,173,27,208,29,3 
0,207,141,27,208,169,1,141,4,207 
280 dat al 73, 1,207,201,4,208, 10,206,251, 
206,208,8,169,2,141,251,206,32,0,12 
0 

201 data96,-1 

290 datal 74,49,207,240,63,32,0, 126, 138, 
10,168,173,250,206,24,105,22,141,25 
0,206 

300 data185,,208,105,,153,,208,185,,208 
,201,56,144,33, IBS, 1,208,201,204,14 
4,26 

310 dat al 69,0,141,49,207, 157,246,207, 16 
9,0,141,15,212,169,40,141,19,212 
320 dat al 69,17,141,18,212,32, 160, 124,96 
, ~ 1 

330 datal 20, 169,255, 162,255,157,0,93,20 
2 

335 data208,250,169,0,133,251,133,253,1 
69,205,133,252,169,207,133,254,162, 
2 

340 datal 60,0,177,251,145,253, 136,208,2 
49,19B,252,198,254,202,208,240 
350 dat al 73,30,208, 141,29,207, 162, 180,1 
60,2, 136,208,25 3,202,208, 248 
352 data32,,124,32,,129,32,,132,32,,134 
,32,,136,32,,137,173,252,206,208,21 
7 

354 dat al 62,5, 189,248,207,208,210,202, 1 
6,248 


356 dataSB,96,-1 

360 fork=27648t0280301readaipokek,asnext 
370 fork*49152t049378 1 readaipokek,ai neut 
380 fork=49408t049457s readas pokek,asnext 
390 readas i -f a > = 0t henp oke3B912+e, a s e=e + l 
I goto390 

395 readas ifa>=0thenpoke34S16+f,asf=f+1 
s goto395 

396 readas 1 fa>“0thenpake35072+g, asg = g +1 
s goto396 

460 prlnt“laad nu het twesds programma 
en run het." 

1000 data,2, ,, 138, ,,40,,2,8, 128,2, 138, 12 

8.. 170.128..170...40...235...253..3 
255 

1010 datal 92,3,253,64,3,255, 192,3,253,64 
,3,255,192,3,253,64,3,255,192,,253, 

1020 data255,,,253,,,60,, 

1030 data,,,,,,,,,,,,,,,,,,,,,2,8,,,2,,, 

160.. 2.128.136..136,B,,193,40,32,19 
3,4 

1040 data32, 193,4,32,193, 16,8,209,16,15, 
241,16,3,213,64, ,253, , ,63, , 

1050 data, 999»9999fP99>PPPPPPPPPPPPPP*?PP 
9 t p p p p p p p p p p®p p®p » 32 , 31 16,64, ,243,6 
5, 

1060 data 17, , 131, ,40,32,205, 16, 

1070 data,240,63,3,92,255,3,119,215,3,12 

7.171.3.95.173.. 245.85..7.85..5.213 

P 9 1 

1080 datal27,,1,85,,,85,,,5,,,19,,3,255, 
,3,255,,,15,,,15,,,3,,,12,,,48,,,25 
2, 

1090 data,,63,,,255,,,95,,,239,,1,165,,5 
,85,,21,85,,85,95,,3,245,12,21,85,2 
52,1 

1100 data85,255,192,21,3,252,,,63,255,,3 
,255,,,3,,,3,,,3,,,,,,3,,,63, 

1110 dat a243, 192, ,253, 112, ,247,112, ,255, 

112.. 125.192..87...212...84...84.., 

84., 

1120 data80,,,240,,,240,,,24©,,,240,,,24 
0,,,255,,,240,240,,204,12, 

1125 data3,3,192,15,,63 

1130 data3,255,252,12,,,,,,54,27,252,255 
,3,,,,,55,34,195,255,63,3,53,41 
1140 datal 77,251,145,253,136,208,249,96 
1145 datal62,4,74, 110,6, 192,74,46,7,192, 
14,6,192,46,7,192,202,208,239 
1147 datal73,7,192, 162,0,129,251,96 
1150 datal69,255,133,251,162, 108,134,252 
232 134 254 

1160 data74,133,253,160,128,32,26,192 
1170 datal 69,48, 141,246, 109,141,249,109, 
169,240,141,252,109 

1180 dat al 62,,142,187, 109, 162,3,142, 190, 
109 

1190 datal69,255,133,251,162,108,134,252 
,232,134,254 

1200 datal33,253,160,,32,26,192 
1210 datal60,25,190, , 192,136,185,, 192,13 
3 251 

1220 data136,185,,192,157,,110,157,128,1 
10,232,232,232,228,251,20B,239 
1230 data136, 16,227 

1240 data 169,, 133,251,169, 192, 133,253, 16 
9,111,133,252,169,108,133,254 
1245 datal62,21,138,72 

1250 datal60,2,177,253,32,34,192,230,251 
,208,2,230,252,136,16,242 
1260 datal 60,2,230,253,208,2,230,254, 136 
,16,247 

1265 datal04,170,202,20B,222,230,251,208 
,2,230,252,230,253,208,2,230,254 

1270 data23B,5,192,173,5,192,201,9,208,1 
98,96 

1271 data 114, 148, 119, 152, 119, 19, 152, 119, 

232.119.120.. 116.152.119..148.219.1 
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Kokos I (vervolg) 

data219,,108,219,112,219,,68,219,72 
,219,,26,219,32,219,5,152,219,232,2 
1? 

data?,240,216,152,219,5,,216,240,21 
6 

dat a80, 144,B4, 148,B4, 149,245, 157,9, 
10,41,42,41,170,175,186 
dat a170. . .3. 15.31.255.255.25 2. . 


datal64,251,192,64, 
192,95,20B,236 
datal69,144,133,251 


4.105.1 
datal33,254,1 

251.165.252.1 

d 1 (\ A ET / .-y -y 


33,253 ,U 


datal69,255 
8,2,230,252 


,5 

dat al 02,253,102,254,24, 102,253, 102, 
254,202,208,234 

dat al 65,253, 145,251, 160,8, 165,254,1 

45,251 

datal98,251 

dat al 65,251,201,255,208,208,198,252 
,165,252,201,63,208,200 
datal 69, , 133,251,169,2, 133,252, 169, 
BB, 133,253, 169,69, 133,254,169, 19,72 
, 162 




1 Insteekkaartjes 
voor C-64 


SUPER EPROMKAART ƒ 105,- 
(Nr. 800) 

Voor 8x 4 of 8k Eprom’s 
Menu gestuurd, incl, resetknop 
Met mogelijkheid van doorsohakelen van 2-8k 
tot 1 16k 

Automatische start voor basic programma’s 
Plaatsen van sommige kernal’s 


UNIVERSEELKAART ƒ 41,59 \ 

(Nr. 160) ^'— 

Kaartje om vier nieuwe kernal’s te plaatsen of te 
gebruiken als epromkaart voor 4, 8, 16k Eprom’s 
Voor buiten op de cartridgepoort 


USERPOORTEXPANDER ƒ 27,30 
(Nr. 300) \ 

Kaart voor uitbreiding van drie slofs V-'-''""""” 


EPROMKAART ƒ 23,10 
(Nr. 200) 

Voor 2x 2k of 2x 4k of 2x 8k of 1x16k Eprom’s 
Incl, reset knop 


HOEKADAPTOR ƒ 18,90 r^i6\»N \ 

(Nr. 310) 

Om kaart horizontaal te plaatsen, met mogelijkheid tot 
een extra slot 


EPROM’S ƒ 16,40 
(Nr. 1000) 

Eprom’s 2764 - 250 nano/sec (8k) 

EPROMWISSER BOUWKIT 
(Nr. 612) ƒ49,60 

Bouwset om 12 eprom's te wissen 
(+/-5/10 min.) wistijd 

STAR PRINTER SG-10 ƒ1050,- 

Printer met new letter quality 


CARTRIDGEPOORTEXPANDER ƒ 439,70 
(Nr. 350) C u^\ 

Voor uitbreiding voor 5 slofs ' ' 


EPROMPROGRAMMER ƒ 151,26 
(Nr. 64) 

Voor 2716 t/m 27128 Eprom’s 

Incl. software-besturing met snelprogrammeermode 

(8k in 22 sec) en Textoolvoet 

Geen dipswitches, wordt softwarematig gestuurd 

Aansluiting op de userpoort _ 


Bestellen bij Gima Print Service 
(077-70937), Postbus 186, 

5900 AD Venlo door overmaken 
op bankrek. 457759739 Amro 
(giro bank 1050085) of onder 
rembours. Ook na 18.00 uur 
bereikbaar. 



ROMEXTENDER ƒ 32,35 V 

(Nr. 100) 

Printje om een nieuwe kernal extra te plaatsen 




PRINT SERVICE 


ROMEXTENDER ƒ 37,80 
(Nr. 150) 

Printje om vier nieuwe kemal’s extra te plaatsen 


PB 186 5900AD Venlo - Tel. 077-70997 I llllll 
Postgiro 4848454 Alle prijzen excl. BTW en f 5,- verzendkosten 
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1550 data7,160,128,189,8,152,17,253,145, 
253,138,72,152,9,0,140,1S9,0,152,23 
4 

1540 data234,234,17,253,145,253,104,170, 
152,56,233,72,168,16,224,230,253,20 
8 2 

1565 data230,254,202,16,213 

1570 data24,165,253,105,56,133,253,165,2 

54 . 105 . 1 . 133 . 254 . 104 . 56 . 233 . 1 . 208.1 
91 

1580 dat a96, 160,49, 162,3, IBS, , 193, 149,25 
1,136,202,16,247,162,0 
159 0 datal85,, 193,129,251,230,251,208,2, 
230,252 

1600 datal65,251,197,253,208,239,165,252 
,197,254,208,233 

1610 datal36,16,217,169,45,141,30,119,14 
1,70,119,169,18,141,109,119,141,110 
,119 

1615 data96,-l 

1620 datal73,200,92,20S,31,173,6,207,208 
,27 

1622 datal73,49,207,208,21,173,95,93,41, 

1.208.14.160.72.169.255.153.63.93.1 
52 

1623 data56,233,8,168,16,244,96 
1625 data206,19,207,208,250,169,110 
1630 data141,19,207 

1640 data 172,255,206,174,253,206, 185,10, 
207,29,0,93,157,0,93 

1650 datal52,73,3,168,174,254,206,185,10 
,207,29,0,93,157,0,93 
1660 data206,255,206,16,73,169,3,141,255 
,206,173,253,206,24,105,8,141,253,2 
06 

1670 datal73,254,206,56,233,8,141,254,20 

6.201.95.208.46.173.6.207.141.220.2 
06 

1675 datal69,0,141,224,206 

1680 datal69,0,141,6,207, 169,1, 141,4,207 
,169,0,141,15,212,169,128,141,18,21 
2 

datal 67, 192,141,19,212,169,129,141, 
18,212,169,255,141,219,206,96,-1 
data 169,114, 133,254, 173,220,206,208 
,1,96,24,106,106,106,133,253 
datal44,2,230,254,162,3,138,72,173, 
27,212,41,63,168,173,27,212,41,3,17 



*** EINDE LISTING *** 

kokos 1 checksum 

regel 1 17B regel 150 

7 

regel 

330 

1B0 

regel 

2 1B0 

regel 

160 

62 

regel 

335 

109 

regel 

3 204 

regel 

170 

145 

regel 

340 

BB 

regel 

4 14.3 

regel 

171 

126 

regel 

350 

222 

regel 

10 144 

regel 

ISO 

77 

regel 

352 

63 

regel 

20 87 

regel 

190 

209 

regel 

354 

124 

regel 

30 3B 

regel 

200 

10 

regel 

356 

24 

regel 

40 143 

regel 

210 

7 

regel 

360 

113 

regel 

42 168 

regel 

220 

236 

regel 

370 

125 

regel 

43 266 

regel 

230 

148 

regel 

380 

127 

regel 

45 83 

regel 

240 

89 

regel 

390 

178 

regel 

50 115 

regel 

250 

95 

regel 

395 

185 

regel 

60 109 

regel 

260 

63 

regel 

396 

184 

regel 

65 121 

regel 

270 

162 

regel 

400 

1 10 

regel 

100 65 

regel 

260 

72 

regel 

1000 

169 

regel 

HO 212 

regel 

281 

124 

regel 

1010 

103 

regel 

115 65 

regel 

290 

33 

rggel 

1020 

127 

regel 

120 140 

regel 

300 

232 

regel 

1030 

50 

regel 

130 204 

regel 

310 

167 

regel 

1040 

146 

regel 

140 209 

regel 

320 

11 

regel 

1050 

168 


regel 

1060 

167 

regel 

1290 

202 

regel 

1560 

205 


regel 

1070 

184 

regel 

1300 

218 

regel 

1565 

244 


regel 

1080 

40 

regel 

1310 

169 

regel 

1570 

151 


regel 

1090 

205 

regel 

1320 

68 

regel 

1580 

194 


regel 

1100 

180 

regel 

1330 

194 

regel 

1590 

209 


regel 

1110 

191 

regel 

1335 

83 

regel 

1600 

177 


regel 

1120 

18 

regel 

1340 

232 

regel 

1610 

2 ' 


regel 

1125 

48 

regel 

1350 

41 

regel 

1615 

124 


regel 

1130 

73 

regel 

1360 

207 

regel 

1620 

18 


regel 

1140 

100 

regel 

1365 

81 

regel 

1622 

177 


regel 

1145 

31 

regel 

1370 

214 

regel 

1623 

213 


regel 

1147 

145 

regel 

1380 

93 

regel 

1625 

137 


regel 

1150 

211 

regel 

1390 

151 

regel 

1630 

Hfw 


regel 

1160 

238 

regel 

1400 

69 

regel 

1640 

1 


regel, 

1170 

57 

regel 

1410 

125 

regel 

1650 

146 


regel 

1180 

16 

regel 

1420 

41 

regel 

1660 

w t 


regel 

1190 

211 

regel 

1430 

103 

regel 

1670 

1 


regel 

1200 

188 

regel 

1440 

114 

regel 

1675 

201 


regel 

1210 

114 

regel 

1450 

92 

regel 

1680 

96 


regel 

1220 

65 

regel 

1460 

101 

regel 

1690 

183 


regel 

1230 

119 

regel 

1470 

204 

regel 

1700 

220 


regel 

1240 

33 

regel 

1480 

67 

regel 

1710 

98 


regel 

1245 

8 

regel 

1490 

96 

regel 

1720 

38 


regel 

1250 

65 

regel 

1500 

89 

regel 

1730 

98 

.. 

regel 

1260 

205 

regel 

1510 

227 

regel 

1740 

64 


regel 

1265 

134 

regel 

1520 

74 





regel 

1270 

140 

regel 

1525 

175 





regel 

1271 

154 

regel 

1527 

233 

ready, 




regel 

1272 

166 

regel 

1530 

238 





regel 

1273 

168 

regel 

1540 

38 





regel 

1280 

1 

regel 

1550 

136 






1 

2 

3 

4 

5 

6 
9 

10 

20 

100 


110 

120 

130 

140 

150 

160 

170 

180 

200 


kokos 2 


eerst kokos 1 laden en runnen, 
daarna dit programma laden en 
runnen. 


rem 
rem 
rem 
rem 
rem 
rem 

i-fpeek <35000)<>170thenprint"laad en 
run eerst het andere programma."send 
printchr*(14) " C CLR-H0ME3Coranie3"s poke 
53281,1> poke53280,9 
poke52,160jpoke56,160 

a$(0,2)’=" CRVS-aanl* *CRVS-uit3 .CRVS-aan 
1 CRVS-uit3a"ia*(0,3)="CRVS-aan3 C2xspat 
ie]CRVS-uit] aCRVS-aan3C2xspatie3CRVS-ui 
tl""ia*(8,4) = "CRVS-aan 3C4xspatie3CRVS-u 
i 11 ■ 

at(0,5)=“CRVS-aan 3C4xspatie3CRVS-uit3 
a ":a*(0,6)="CRVS-aan3C2xspatie]CRVS-ui 
tl ■ CRVS-aan1C2xspat ielCRVS-uitla":a 
*(0,7)="CRVS-aanla aCRVS-uitl 'CRVS-aanl 
CRVS-uit]* 

a$(l,2)='" «C RVS-aan 3 »CRVS-uitla " s 
at (1,3)="CRVS-aanll C4xspatie3CRVS—uit! 

«lattl, 4 )="CRVS-aan 1 C 2 xspatie1CRVS-uit 
3* CRVS-aan1a CRVS-ultll 

a$(l,5)="CRVS-aan3C2xspatie3CRVS-uit3 
a CRVS-aan3* CRVS-uit 31 "« a$(1,6) = "CRVS-a 
an3lC4xspatielCRVS-uit3 "s a$ (1,7)=" 

CRVS —aan 3 aa aCRVS-uit3* " 
a* <4,2)="aCRVS-aan3 C 3 xspatie]CRVS-uit3 
aa " t at (4,3) *■" CRVS —aan] C5xspat ie] CRVS-ui 
t3l " : a* (4, 4) = " »CRVS-aan3 CRVS-uitlaa 
a CRVS —aan3«CRVS — uit3 " 

a* (4,5) **" aa CRVS-aan 3 aaa *CRVS-uit3 " : 
a*(4,6)="CRVS-aan 3C5xspatie3CRVS-uit] 

I “iat(4,7)“"*CRVS-aan 3 a C2xspat ielaCRVS 
uit! " 

■fork = 2to7!a*(2,k)=a*(0,k):a*(3,k)=a 

* < 1 , k > inextib$="C6xspatie3" 

at="[1inksl"ifork=0to4iat="C6»rechts3" 

+ ati at(k , 0)= b*ia*(k,1)=b*« tori=7to0 
step-i 

print"CH0ME3"j J -f or m= 11 o7 s pr i n t at; at 
< k,m >:nex tm,1,k 

pr i nt"C2xneer 3 CRVS-aan3Xn dit spel 
ben ie een aapje, dat een " 
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. Kokos II (vervolg) 


210 print" CRUS-aan]aantal wonderlijke 
bomen in ziin ter- " 

220 print" [RVS-aanJritorium heeft etaa 
n. De kokosnotenC3xspat iel” 

230 print" CRVS—aan3van deze bomen zijn 
pas eetbaar, al sC 2 xspat i e3 " 

240 print" CRVS—aanlze naar beneden val 
len. Omdat dit al- " 

250 print" CRVS — aan' 11 een vandaag gebeur 
t, moet je zo veel " 

260 print" CRVS—aan Image,1 ijk kokosnoten 
verzamelen. De ko- 

270 print" CRVS — aan 3kosnoten moeten gew 
assen en gekooktC3xspatie3" 

280 print" CRVS-aan3worden voordat ze v 
ergaan. Iedere ko- " 

290 print" CRVS —aan 3kosnoot, die gewass 
en in de pan zit,C 2 xspatie 3 " 

300 print" CRVS—aan 3 vergaat niet meer e 
n is 1 punt waard. " 

310 print" CRVS—aan3Je kunt bewegen met 
de stuurknuppel en 

320 print" CRVS-aan3met de vuur knop.C22xspa 
t i e 3 " 

330 print"Cneer3C7xspatie3C RVS-aan 3 36 s 

econden geduld A.U.B. "j I poke52,64:poke 
56,64 

395 sys49213isys39103 

397 reada:ifa>=0thenpokei+3532B,asi=i+l 
!goto397 

400 •fork = 23744to23771:reada:pokek,a:next 
:fork=24072to240B3:reada:pokek,a:next 
410 b = 13:-fork=22765to23422: reada: pokek, 
ajb^b + l: ifb=32thenb=0:k = k+2BB 
420 next 

422 reada: i -f a> = 0thenpoke30720+c , a: c = c +1 
:goto422 

424 reada: i+a>=0thenpoke31744+d,a:d=d+1 
:goto424 

426 reada: i -f a > = 0t h enpok e31 BB4+e , a : e = e +1 
:goto426 

428 reada: i f a >=0thenpoke32256+-f , a: f =f + 1 
:goto428 

429 reada:ifa>=@thenpoke32512+g,a:g=g+1 
:goto429 

430 reada:ita>-0thenpoke33@24+h,aih=h+1 
:goto430 

432 -fork = 52437to52693: reada: pokek, a: next 
: -f ark = 52694 to52735: pokek, 0 : next 

433 poke52734,255 

589 print"Cop]"chr*(141)"C37xspatie3 "; 

590 print n Cop3"chr*(141)"CRVS-aan3Crechts 3 
Druk op de vuur knop.C20x1inks3CRVS- 
uit3"j:b=0 

591 fork=0tol7:printchr*(14B)::c=peek(5 

6320)and 16 

592 ifc — 16thenb = 1 

593 i-f <e = 0> and <b = l ) then599 

594 next: print" C 18x spat i e 3 ” 5 :fork= 0 tol 7 
: pr intchr*( 20 ) ; 

595 c-peek(56320)and 16:itc = 16thenb = 1 

596 if (c-0)and(b = l)then599 

598 next:goto591 

599 poke53265,peek<53265>and239:sys3940 
8 

600 poke56578,peek(56578)or3cpoke56576, 

(peek(56576)and252)or2:poke53272 ,20 
8 

610 poke53265,peek(53265)or32:poke53270 
,peek(53270)orl6 
620 poke53280,1 

660 v = 532 4Bipokev+21,3:pokev+23,3s pokev 
+28,255:pokev+37,B:pokev+38,11 
670 pokev+39,l:pokev+40,l:pokev+27,0 
680 pokev,4ipokev+2,28rpokev+16,3:pokev 
+ 1, 1 92:pokev+3, 192:sys35341 
690 s=54272:fork-0to24:pokes+k,0:next:pake 
s+24,15:pokes+1,200:pokes+6 ,0 


wonder1ij ke 


695 pokes+14,255;pokes+15,255:pokes+18, 
128:pokes+8,50:pokes+12,5 
700 pokel7784,255 

900 poke53265,peek(53265)or16:pokel6544 
,0:sys34560:pokev+21,0 

901 poke53265,peek(53265)and239 

910 poke53270,peek(53270)and239:poke532 
65,peek(53265)and223:poke53272,21 
920 poke56576, (peek (56576)and252)or3«poke 
56578,peek(56578)and252 
925 r-0: p=0:q=0: k=52445:1=53213:n=100 
930 form=0to2:p=p+peek(k+m)4n:q=q+peek( 

1 +m)*n:n=n/ 10 :next 

940 if q >=pthenf orm=0t o2: pokek + m, peek (1 + 
m) : next 

945 fork=0to23:pokes+k,0:next:pokes+5,9 
:pokest12,10:pokes+19,12 

946 pokes+4,17:pokes+11,17:pokes+lB, 17: 
sys35328 

950 print:printchr*(142)"CCLR—HOME3"tab( 

15)"hiscore "j 

951 f or k = 52445to52447: ifpeek (k) >0thenr = 

1 

960 ifr=lthenprintchrt(peek(k)+4B); 

962 nextiprintiprint"Cneer3"tab(13)"Coranje 

3 RVS-aan3-CRVS-uit3l [RVS-aan] 

I CRVS-uit 31C2xrechts3CRVS-uit3-_ 

963 printtab( 10 )"-CRVS-aan3“Crechts3 C 6 xspat 
ie3CRVB-uit3lCRVS-aan3lC2xspatie3Crecht 
s 3 CRVS-uit 3 eCRV 8 -aan 3 C 2 xspatie 3 Crechts 3 
“CRVS-uit3- 

964 printtab(9)"CRVS-aan38C2xspatie3Crechts 
3C2xspatie3CRVS-uit3—CRVS-aan31 CRVS-u 
it 31CRVS-aan 31C2xspatie3 CRVS-uit 31CRVS- 
aan 3 C3xspat ie3 Cr echts 3 C2xspat ie3K 

965 printtab( 8 )"CRVS-aan3S 8 C3xspatie]Crechts 

3 C2xspat ie]C2xrechts3 CRVS-aan31 CRVS-ui 
t31 CRVS-aan31 CRVB-uit31 CRVS-aan3 ■ 

C 2 xspatie 3 Crechts 3 C 2 xspatie 3 «*t 

966 printtab(7)"CRVS-aan38 CRVS-uit3J* CRVS- 
aan]sCrechte 3 C 2 xspatie 3 ~C2xspatie] 

C RVS—uit 31 C RVS-aan 31 CRVS-uit3l CRVS-aan 
3> C RVS—uit 3 ■ CRVB-aan3C2xspatie3Crechts3 
C2xspatie)CRVS—uit lm m 

967 print"CGROEN]C3xspatie3 CRVS-aan38CRVS-U 
it3» Coranie3CRVS-aan38 CRVS-uit3»Crech 
ts3CRVB-uit3_«i C RVS-aan 3 C 6 x sp at i e 3 C RVS- 
Uit 31 CRVS-aan 31 CRVS-uit3l CRVS-aan3 
ICrechts3C2xspatie3Crechts3C4xspatie3 

C R VS-u i t 3 ■■ 

968 print"CGR0EN3 CRVS-aan3BCrBChts3 Crecht 
s] Coran J e]CRVS-uit 3 .CRVS-aan3 CRVS-uit 3 
8Crechts3 CRVS-aan3»C2xspat ie3 Crechts] 
Cbruin]C2xspatie]CRVS-uit 3 — CRVS-aan] 

I C RVS-uit 31C RVS-aan 31 CRVB-uit3lC2xspa 
tielCRVS-aan]C 2 xspatie]Coranie][rechts 3 
C2xspatie3[rechts]CRVS-uit3~CRVS-aan3 
-_CRVS-uit]. 

969 print" CGR0EN3 SSCRVS-aan]" SCoranje] 

I [RVS-ult3sCRVS-aan3Cbruln]-C3xspatie3 
Coranje 3 Crechts 3 C 2 xspatie 3 C 2 xrechts 3 
■ CRVS—uitllCRVS-aan]l CRVS-uit3IC2xspa 
tie 3 CRVS-aan]C 2 xspatie 3 Cbruin 3 Crechts 3 
C3xspatie3 [RVS-uit3Coranie3 

970 print"C2xspatie3CBR0EN3CRVS-aan3»C 2 xspa 
tie]Coranje3C7xspatie3Crechts]Cbruin3 
C2xspatie3C2xrechts]! CRVS-uit3lCRVS-aa 
n 31 C RVS-uit 3■ C2xrechts3CRVS-aan3C2xspa 

“ CGROEN] . CRVS-aan3C3xspatie3CRVS-uit3 

I 

971 print"C2xspatie][RVS-aan 38C2xspatie3 

Cbruin3C7xspatie3Crechts3Coranje3C2xspa 
t i e3C2xrechts 31 CRVS-uit3l CRVS-aan3 
IC 6 xspatie)[rechts]Cbruin]C7*spatie]" 

972 print" CRVS-aan]CGR0EN38[2xspatie3CRVS- 
uit]#[RVS-aan3Cbruin3i aCaranJe3[4»spat 
ie3Crechts3Cbruin3C2x spatie3 CRVS-uit 3 

I. CRVS-aan 3 I CRVS-i '■ [ RVS-aan 3 I C 6 x sp a 


CRVS-uit 3-CRVS-aan] I 


33 
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973 print" CGROENltSCRVS-aan ]» Crechts]Cbrui 
n 3 C RVS-u i t 3 ■ CRVS-aan 3 83C2xrechts3C2xspa 
tle3Crechts3Coranie3l CRVS-uitll CRVB-a 
an 31 CRVS-uitllCRVS-aan3l CRVS-uit3 

I C5x spatie3CRVS-aan 3Cbruin3C2xspatie] 
CRVS-uit3«iCRVS-aan3—C2xspatie3CRVS-uit3 
■ I 

974 print" CGROEN3 ICRVS-aan3 CRVS-uit3S 
CRVS-aan 3«C rechts 3 CRVS-uit 3 Cbru in 3«S 
CRVS-aan] *Crechts3C2xspatie3Crechts3 

I CRVB-uit 31Crechts3CRVB-aan3C2xspatie3 
C RVS-uit 31 C RVS —aan 31 ■CRVS-ui13aa[RVS-a 

an 3 —— C rechts 3 C4xspatie3ai 

975 print"C2xspatie3C GROEN 3 C RVS-aan 3■ CRVS-u 
i t 3 ■ C3xspatie3Cbruin3SSCRVS-aan3 SSC2xspa 
tie3Crechts3l ICRVS-uit3 I CRVS-aan3C2xsp 
atie3CRVS-uit]l [RVS-aan3lC6xspatie] 
Crechts3C3xBpatie3S8 

976 printtab(8)"&C RVS-aan 3C3xspatie3Crechts 
3 C RVS—uit 3 I CRVS-aan 3 ICRVB-uit] ICRVS-aa 
n]C2xspatie3Crechts3l ««CRVS-uit 3““ 

“ CRVS-aan3C2xspatie]CRVS-uit3K!8 

977 printtab(9)"8CRVS-aan3[2xspatie][rechts 

3 CRVS-u i t 3 ICRVS-aan3C2xspatie3l ICrecht 
s 31 C RVS—uit 31 » CRVB-aan3C2xspatie3" 

978 printtab <10)[RVS — aan3—C2xrechts3 [4xsp 
atie3 I[rechts3l C6xBpatie3Crechts3— CRVS- 
uit3" 

979 printtab <14)"“CRVS-aan3-—CRVS-uit3 
I CRVS-aan 31 -CRVS-uit3 — 

900 printtab(16)"Cneer3score "S 

9B1 r = 0: ■fark=53213to53215! i-fpeek <k) >0then 
r = 1 

982 i-fr»lthenprintchrt(peek (k)+4S) ; 

983 next«printiprint"Cneer3"tab(10)"dru 
k op de vuur knop.">«poke53265,peek< 
53265)or16 

984 b=0 

985 c=peek(56320)andl6:itc=16thenb=l 

986 if (c = 0)and<b = l)then599 

999 goto985 

1000 data 120, 169,26, 141,20,3, 169, 138, 141 
,21,3,88,96,120,169,49,141,20,3,169 

234 

1005 dat al 41,21,3,88,96, 162,2,160,14 

1010 data254,213,206,189,213,206,153,1,2 
12,221,216,206,208,15,169,0,157,213 
, 206 

1020 datal 69,16,153,4,212,169,17, 153,4,2 
12,202,152,56,233,7,168,16,219 

1030 data76,49,234,-1 

1620 datal92,240,252,254,255,255,255,255 
,,,136,170,170,170,234,234,,,136,17 
0 

1625 datal70,170,171,171 

1630 data3,15,191,191,234,250,250,254,25 
5,255,255,255,171,175,175,191 

1640 data63,255,255,,,,,,254,254,254,,,, 

,,192,240,240,.,3,3,255,255,255 

255 

1650 data255,255,63,63,254,254,254,254,2 
54,254,254,254,240,240,240,240,240, 

240 


ATARI-IBM-APPLE-SONY 
CASIO-PANASONÊC-WANG 
SINCLAIR-BROTHER-BBC 
SPECTRAVIDEO-DIGITAL 
SHARP- TANDY-AVT 
COMMODORE 


1660 data204,204,3,3,3,3,3,3,3,,63,63,63 
,63,,,,,255,255,255,255,,, , 

1670 data204,204,204,2O4,204,204,12 
1675 datal38,72,173,220,207,133,251,173, 

255.207.133.252.162.3.134.2 

1680 data 173,27,212,41,127,168, 173,27,21 
2,41,3,170,173,1,207,201,2,176,17 
1690 dat al 89,20,207,57,64, 113,153,64, 113 
,166,2,202,208,221 

1695 data24,144,54,173,1,207,201,4,240,4 
7,234,234,234,234 

1700 datal89,10,207,49,251,25,64,113,153 
,64,113,166,2,202,208,191,173,1,207 
1710 data201,2,208,20,173,0,207,208,15,1 
69,128,141,4,212,169,208,141,5,212 
1720 dat al 69,129, 141,4,212, 173,1,207,201 
,4,240,38 

1730 data238,0,207,208,3,23B,1,207,173,1 
,207,201,4,240,3,76,11,122 
1740 datal69,128, 141,4,212, 169,200, 141,1 
,212,169,0,141,5,212,169,0,141,6,21 
2 

1750 datal 73,0,220,41,12,201,12,208,43 
1760 data 173,2,207,240, 19,162,182, 173,4, 
207,208,2,162,1B6 

1770 datal42,24B,119,232,142,249,119,76, 
11,122 

1780 dat al 62,191,173,4,207,208,2, 162,195 
,142,249,119,232,142,248,119,76,11, 

1 22 

1790 data 173,0,220,41,8,240,3,76,103,121 
,169,0,141,2,207,173,16,208,41,3,24 
0,7 

1800 datal 73,2,208,201,2 9,240,208, 162,18 
9,173,4,207,208,2,162,193 
1810 data206,3,207,20B,13,169,4,141,3,20 
7,173,5,207,73,1,141,5,207 
1820 datal 73,5,207,208,2,232,232, 142,249 
,119,232,142,248,119 
1830 dat al 73,5,207,240, 17, 173,3,207,201, 

1,208,10,169,12B,141,4,212,169,129 
1840 datal41,4,212 

1850 data238,O,208,208,8,173,16,208,9,1, 
141,16,208 

1860 data23B,2,208,208,8,173,16,208,9,2, 
141,16,208 

1870 datal73,6,207,168,10,170,240,27 
1880 data24, 173,2,208, 105,12, 157,0,208, 1 

73.16.208.41.2.208.2.144.9.173.16.2 
08 

1885 data25,30,207,141,16,208 
1B90 data76,11,122 

1900 datal 69, 1,141,2,207, 173,16,208,41,3 
,208,10,173,,208,201,40,208,3 
1905 data76, 165, 120 

1910 datal 62, 180, 173,4,207,208,2, 162,184 
,206,3,207,208,13,169,4,141,3,207 
1920 datal73,5,207,73,1,141,5,207, 173,5, 
207,208,2,232,232 

1930 data 142,248,119,232,142,249, 119,173 
,5,207,240,17,173,3,207,201,1,208,10 
1940 datal69,128,141,4,212,169,129,141,4 
,212 


HANDY-KAP 


COVERS EN TABLEAUS 


inlichtingen: 010-738001 
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1990 

2000 


2010 

2020 

2030 

2040 

2050 

2060 


2160 


2220 


208,9,169,0,157,220,207 
data202,32,140,124,96,162,3,32,1 

124.169.207.133.252.169.93.133.254 
datal89,220,207,10,10,10,24,105,50, 
133,251,13B,10,10,10,24,105,224,133 
, 253 

datal 60,7, 177,251,145,253, 136, 16,24 

9,232,138,201,4,208,221,96,-1 

datal 69,, 133,251,169, 108,133,252,16 

9.114.133.254 

data254,222,207,208,3,254,228,207,1 
3B,10,168,24,189,234,207,125,222,20 

datal 57,234,207,185,1,208, 141,48,20 
7,125,228,207,153,1,208,205,48,207, 
240 

dat a48,189,240,207,240,43,138,24, 10 

6.106.106.133.253.144.2.230.254 
datal 89,240,207,56,233,3,157,240,20 
7,168,200,200 

datal77,251,145,253,136,152,221,240 
,207,16,245 

datal 73,27,208,61,40,207,141,27,208 
,96,-1 

datal3B,10,168 

data56,185,,208,237,,208,72,173,2,2 
07,240,7,104 

data201,24,16,64,48,92,104,201,1,4B 
,57,16,85,172,6,207,208,51.169.3 


2232 

2233 


2234 

2235 


2243 


16, 142,48,224, 104,201,42,48 p 135, 16, 
217 

datal72,6,207,240,18,169,1,153,246, 

207.169.. 141.6.207.152.10.16B 

datal69,213,153,1,208,169,1,141,4,2 
07,169,,141,,207 

data 169,0,141,1,207,169,128, 141,4,2 

12.169.. 141.6.212 

datal 69, 10, 141,1,212, 169, 12, 141,5,2 

12.169.129.141.4.212.169.. 133.252 


2285 

2290 


2370 


2380 

2390 


datal60,62,145,253,136,16,251 
datal 38,24, 105,200, 157,248, 119, 13E 

72.10.133.2.168.169.61.153.1.208 

datal 73,27,212,201,84, 144,249, 153, 
, 208 

data 162, 14,228,2,240,22, 189, 1,208, 
01,90,176,15,56,189,,208,249,,20B 
data201,12,16,4,201,245,16,218,202 
202,224,2,208,224 

dat al 04, 170,173, 16,20B,61,40,207, 1 

1.16.208 

data 169,63, 157,240,207, 173,21,208, 
9,30,207,141,21,208,96 
dat al 89,246,207,201,1,208,90,32,0, 
26,173,1,207,201,4,208,28 


2450 

2460 


2470 

2480 


2490 

2500 


2501 

2510 


2520 

29B0 

2990 


207,15,207,207,207,207, 
data255,207,51,243,195, 
207,51,243,207,243,51,2 
data255,51,51,51,3,243, 
3,63,15,243,243,243,15 
dat 3255,207,51,63, 15,51, 
3,243,243,207,207,207,2< 
data255,207,51,51,207,51 
,207,51,51,195,243,51,2< 
datal95,195,3,3,163,3, 
52,118,86,88,152,238,' 

. 9 _ 


,3, 
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3090 data37,137,i0,12,12,12,12,12,12,12, 
12,131,239,239,255,255,43,15,63,63, 
12 

310O data 195, 195,163,131,3,131,163,35,23 
5,23B,221,B5,B6,102,104,104,23B,250 

3110 data 173, 149,37,37, 165, 137, 12, 12, 12, 
14,12,12,12,14,11,187,251,250,254,9 

, 19 

3120 data62,62,14 
*** EINDE L1STING *** 


kokos 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

rBgel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


2 checksum 
1 72 


72 

regel 

397 

195 

regel 

910 

232 

143 

regel 

400 

20 

regel 

920 

226 

197 

regel 

410 

68 

regel 

925 

73 

1B0 

regel 

420 

130 

regel 

930 

229 

147 

regel 

422 

157 

regel 

940 

13 

143 

regel 

424 

169 

regel 

945 

213 

81 

regel 

426 

179 

regel 

946 

200 

215 

regel 

420 

178 

regel 

950 

176 

192 

regel 

429 

177 

regel 

951 

12 

64 

regel 

430 

171 

regel 

960 

199 

83 

regel 

432 

23 

regel 

962 

19 

106 

regel 

433 

100 

regel 

963 

249 

136 

regel 

589 

155 

regel 

964 

94 

107 

regel 

590 

148 

regel 

965 

249 

106 

regel 

591 

213 

regel 

966 

52 

47 

regel 

592 

179 

regel 

967 

146 

178 

regel 

593 

116 

regel’ 

968 

219 

241 

regel 

594 

80 

regel 

969 

157 

183 

regel 

595 

11 

regel 

970 

196 

57 

regel 

596 

116 

regel 

971 

62 

143 

regel 

598 

228 

regel 

972 

190 

140 

regel 

599 

13 

regel 

973 

182 

33 

regel 

600 

22 

regel 

974 

41 

216 

regel 

610 

30 

regel 

975 

15 

33 

regel 

620 

246 

regel 

976 

25 

44 

regel 

660 

162 

regel 

977 

75 

163 

regel 

670 

136 

regel 

978 

37 

'153 

regel 

680 

235 

regel 

979 

161 

150 

regel 

690 

15 

regel 

980 

216 

223 

regel 

695 

220 

regel 

981 

110 

22 

regel 

700 

106 

regel 

982 

199 

42 

regel 

900 

146 

regel 

983 

112 

121 

regel 

901 

45 

regel 

984 

36 


regel 

regel ' 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regBl 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

régel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

.regel 

regel 

regel 

regel 

regel 

regel 

regel 


Moe van het overtikken? 

Neem Uw gemak, neem een 

INFOLIST 

cassette of diskette 


En ze werken allemaal, dus u krijgt een macht 
aan software voor een vriendelijke prijs. Met 
zo’n cassette is er in één keer al een aardig 
begin voor uw programma-bibliotheek en bo¬ 
vendien kunt u aan de hand van de gegeven 
programma’s daar zelf weer uitbreidingen op 
maken. 

Beschikbaar voor de „64” 

uit no. 1 +2 + 3 van ’84 -» I 
uit no. 4 + 5 van ’84 —» II 
uit no. 1 + 2 van ’85 —> lil 
uit no. 3 + 4 van ’85 —» IV 
per diskette ƒ 27,50 
per cassette ƒ 22,50 

Wilt U bij bestelling aangéven no. I, II, lil, IV. 






NFOLIST 


LEZERSSERVICE 


De listings uit dit en eerdere nummers van Commodore-lnfo zijn 
ook op cassette en micro-floppy te verkrijgen. Dat scheelt de 
lezer de tijd en ergernis van het overtypen, hetgeen tenslotte zelfs 
met onze listtest nog een boel werk kan betekenen, om nog maar 
niet te spreken van ergernis en frustratie. 

De lezersservice van Commodore-lnfo wordt verzorgd door 


Infolist uitArkel, Stationsweg 39B, 01831-2904, maar ook op de 
redaktie kunt u voor vragen meestal wel terecht 02152-63431. 


Bestellen kan alleen bij vooruitbetaling door overmaken van ƒ 22,50 of ƒ 27,50 op 


giro 3157656 Infolist te Arkel met vermelding van het infolistnummer en natuurlijk 


uw naam en adres. We sturen u de cassette direkt na ontvangst van uw overmaking 


per post op, met een kwitantie. 
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Letterraam 


Een programma van Rob Danen, dat -in Basic- van alle in 
te typen karakters een vergroot beeld (dots) weergeeft op 
het scherm, waardoor je de opbouw van het betreffende 
symbool kunt bekijken. Bovendien is eerst de karakterge- 
nerator naar RAM gekopieerd (jregel 150), zodat ook de 
karakteropbouw te veranderen is. De RAM adressen van 
het symbool worden ook op het scherm gezet. Leuk om te 
bekijken en mee te experimenteren. 


1 rem letterraam / commodore—64 

2 rem door rob danen 

3 rem den haag / 070-252436 

4 rem 

10 poke53280,246:poke53281,246:print"CWIT] 

20 rem bescherm character-set 

40 print"CCLR-HOME3C2xneer]even geduld" 

: pr int 

50 print "vergroter door:" 

60 pr int"EEEEEEEEEEEEEEE" 

70 print"UCCCCCCCCCI" 

80 prinf'Brob danenB" 

90 pr int"JCCCCCCCCCK" 

100 rem copieer characters 

120 printchr$(142)!poke52,4B:poke56,48: 
c 1 r 

130 poke56334,peek(56334)and254 
140 pokel,peek(1)and251 

150 for i=0tol 104ipokei + 12288,peek <i + 532 
48) : nex t 

160 poke1,peek(1)or4 

170 poke56334,peek(56334)orl 

180 : 

190 rem start vergroten 
200 rem =============== 

210 pr int " CCLR-HOME3"!print"toets symbo 
ol" 

220 getaiiifa*=""then 220 

230 pr int"CCLR-HOME3 CHOME3 "5 atip 1 =peek( 
1024):p=peek(1024):p=p*8:a=12288+p: 
al=53248 + p:print"CCLR — HOME]" 

240 ■forx=0to7ia(x + l)=peek (a + x) snextx 
250 print "UCCCCCCCCI" 

260 rtem reken dec > bin uit 
270 rem =================== 

280 -f or c= 1 to 8 
290 -f or x = 1 toS 

300 b=int (a(c)/2):b = b* 2 !b = a(c)-b 

310 i -f b = 0t henat ( x ) =a$ ( x ) + " " 

320 i fb = 11hena*(x>=a*(x)+"Q" 

330 a(c)=int(a(c)/2) 

340 nextx 

350 rem print char. 

360 rem =========== 

370 pr int "B" ,■ 1 f or i=8tolètep-l: pr inta* ( i 
);:aS(i)=""inexti:print"B"sc 
380 nex tc 

390 pr int " JCCCCCCCCK":print"Cneer 3 1234 
5678" 

400 print" Cneer Isymbool > , ... 

" ;chr$(34) ;a$;chr$(34) a*) 

410 print" ascii code... i ........ s " jasc( ' ^ 

420 print "plaats in char-set C13:";al 

430. print "plaats in char-set ( 21 ! "5 a 

440 print" C13 ! C RVS-aan 3 or i g i ne 1 e [ RVS-u i t :i 

450 print"[23 1 CRVS-aan3gecopieerde 
C RVS-uit 3 character-set" 



460 pr i nt ” [neer 3druk een toet; 
470 getat: ifa$= " " then47@ 

480 got o 1 90 


regel 

1 

235 

regel 

230 

36 

regel 

2 

12 

regel 

240 

177 

regel 

3 

160 

regel 

250 

147 

regel 

4 

143 

regel 

260 

217 

regel 

10 

25 

regel 

270 

22 

regel 

20 

126 

regel 

280 

131 

regel 

30 

205 

regel 

290 

152 

regel 

40 

72 

regel 

300 

236 

regel 

50 

1 1 

regel 

310 

18 

regel 

60 

104 

regel 

320 

228 

regel 

70 

86 

regel 

330 

65 

regel 

80 

170 

regel 

340 

218 

regel 

90 

77 

regel 

350 

104 

regel 

100 

118 

regel 

360 

46 

regel 

110 

217 

regel 

370 

186 

regel 

120 

194 

regel 

380 

197 

regel 

130 

42 

regel 

390 

86 

regel 

140 

127 

regel 

400 

19 

regel 

150 

211 

regel 

410 

122 

regel 

160 

28 

regel 

420 

64 

regel 

170 

193 

r eg e 1 

430 

16 

regel 

180 

58 

regel 

440 

232 

regel 

190 

217 

regel 

450 

103 

regel 

200 

34 

regel 

460 

139 

regel 

210 

59 

regel 

470 

104 

regel 

220 

97 

regel 

480 

35 


Grafiek 


Gerrit Koffeman maakte dit staaltje van grafiekopbouw. 
Kort en goed te begrijpen. Na het ingeven van de nodige 
getallen krijg je een kleurrijke staafgrafiek op je scherm. 
Denk erom dat je de in te geven waarden niet te ver 
uitelkaar laat lopen. Dit programma leent zich prima om te 
worden ingebouwd in je eigen software, want inplaats van 
het intypen van de variabelen, kun je ze natuurlijk door de 
computer laten genereren of uitrekenen. 


rem grafiek / c 
rem door gerrit 
rem uit urk 
rem 

rem grafiek 
print"CCLR—HOME 
$="CRODD3 CGEEL3 
gosub 210 
poke53280,0:pok 
forp= 0 toh: ifhe( 
if(p/ 2 )-int(p /2 
q = l 

sst=mid$(ali, 1 + 
pr int "CHOME3 C4x 
C22xneer3Crecht 

gosub180 
print" CRVS — aan3 
i = 1 sifhe(p)=lth 
print "Cop3Clink 
C RVS-uit 3"; 
i=i+liifi<he(p) 
n ex t p 

getat:ifa$=""th 
run 

i f p = 0 t hen 200 
fori=ltop:print 
return 

input "naam van 
print!input"hoe 
353h 


III 


ommodore-64 
kof f eman 


3CWIT3"idimhe(36):al 


e53281,0:gosub310 
p) =0then 150 
)=0thenq=0igoto80 

q, 1 ) 
rechts 3 
s 3 

“sst" CRVS —uit 3 " ; 
en 150 

s3CRVS-aan3"ss*" 
then130 


“[rechts3"j:nexti 

het bestand";n* 
veel gegevens Cmax. 


pi 

jjjj 


,, f-t 
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230 h=h-l: -f or i =0toh 

240 print"gegeven" i + 1 j:inputhe(i)s nex ti 
250 mx=0:-forj=0toh: i-fhe(j) >mxthenmx=he< 
i)snexti 

260 i i mx = 0 thenrun 

270 sc = 22/mxs-fori=0tohshe<i>=he<j>#sc 
280 ifhe(i)-int(he(i))=>.5thenhe(i)=int 
(he <i)> + l:goto300 
290 he(i)=int(he(i)) 

300 nextisprint"CCLR-HOME 3"s return 
310 tqrx=0to21:printtab (4) "[WIT]P“snext 
320 print"C4xrechts 3"; 

330 -forx= 0 to 35 sprint"CWIT]P "5 snext 
340 sp=int<(40-lan(nt))/2) 

350 print"CHOME 3"spc(sp) "CRVS-aan 3 CWIT3 " 
n*" C RVS-uit 3 " 

360 print"CH0ME3Cneer3 "5 

370 forx= 22 tolstep-lsprintleft*(strt(<m 
x/22 >*x) ,4)snextsreturn 


grafiek 





regel 

170 

138 

regel 

1 

243 

regel 

180 

246 

regel 

2 

215 

regel 

190 

21 

regel 

3 

1 15 

regel 

200 

142 

regel 

4 

143 

regel 

210 

90 

regel 

10 

136 

regel 

220 

175 

regel 

20 

252 

regel 

230 

240 

regel 

30 

32 

regel 

240 

40 

regel 

40 

128 

regel 

250 

201 

regel 

50 

177 

regel 

260 

67 

regel 

60 

210 

regel 

270 

79 

regel 

70 

52 

regel 

280 

50 

regel 

80 

226 

regel 

290 

8 

regel 

90 

50 

regel 

300 

62 

regel 

100 

38 

regel 

310 

106 

regel 

110 

202 

regel 

320 

1 40 

regel 

120 

63 

regel 

330 

1 7 0 

regel 

130 

248 

regel 

3 40 

3 2 

regel 

140 

73 

regel 

350 

5 

regel 

150 

210 

regel 

360 

60 

regel 

160 

100 

regel 

370 

57 


Doolhof 


Kort maar krachtig. De computer maakt op het scherm z’n 
eigen doolhof, zet zichzelf er ergens middenin en gaat 
vervolgens op zoek naar de uitgang. Je kunt er zeker van 
zijn, dat vroeg of laat de uitgang wordt gevonden, als de 
C264 tenminste zichzelf niet heeft ingesloten. 

Dit is nu een voorbeeld van een (korte) listing, waarbij je 
alleen maar de schermlokaties (1024 voor C-64) hoeft te 
veranderen om het te kunnen gebruiken op een VIC of C- 
16. 


1 

rem doolho-f— 64 / commodore — 64 


O 

rem door mi.chi.el & ieroen saede 


3 

rem hoensbroek 045—218448 


4 

rem 


10 

print" CCLR-HOME1" 


20 

-fort = 40to959s i-fint (rnd (1 ) *3.3) = 
pokel024+t,160 

1 then 

30 

nextt 


40 

•fort = 1024tol063ï poket f 81 r next 


50 

+ort=1063to2023step40:poket,Bl: 

next 

60 

fort=2023tol984step~i!poket,81: 

next 

7 0 

tort=1984tol0 24step-4 0:poket, 81 

:next 

100 

g=l?ó4:br-40:gr-lipokel704,32spokel 

705,32:poke1664,32s poke16 65,32 


130 i-fpeek (g+br) = 32thengosub3Ö0 

131 i-fpeek(g + gr)<>32thengosub200sgotol3 
0 

135 pokeg,32 

140 ifg + gr >i0 2 4 a n d g + g r < 2 0 231 h e n g = g + g r 

15Ö p o k e g , 3 

155 ifg-1704thenend 

160 g o t o13 0 

20 0 i-fbr = 4@thengr = -40:br=l: return 
210 i -f b r = 1 then gr = -l s br = -40s return 
22 0 ifbr = -40thengr = 40:b r = - 1:return 
230 i-fb r=-.l then gr=l:br=40sret urn 
30 0 i-fbr = 40thengr=4 0:br=-l:return 
310 ifbr=-lthengr--l:br = -40:r eturn 
32 0 i-fbr ss -4 0thengr = -4 0t br = 1 : return 
330 ifbr=lthengr=l«br=40sreturn 


regel 

1 

156 

60 

195 

160 

29 

regel 

2 

23 

70 

246 

200 

175 

regel 

3 

128 

100 

43 

210 

39 

regel 

4 

143 

130 

1 

220 

90 

regel 

10 

112 

131 

14 

230 

124 

regel 

20 

39 

135 

1 1 1 

300 

175 

regel 

30 

214 

140 

106 

310 

210 

r eg e 1 

40 

50 

150 

61 

32© 

90 

regel 

50 

63 

155 

1 19 

330 

209 


C-16 maestro 


We zijn de C-16 toch niet helemaal vergeten. Hier een kort 
leuk demonstratieprogramma van enkele mogelijkheden 
die de C-16 te bieden heeft. Hoewel het programma 
minder dan 35 regels telt geeft het grafisch zowel als 
muzikaal een aardige demo van z’n kunnen. En dat 
allemaal zonder dat er ook maar een POKE aan te pas 
komt. 


5 gosubl000 

6 -f or x = 11 q 9 s r eadn < x ) : nex t x 

8 charl,8, 1, "****** C-16 maestro **«***#" 
10 vol 7 
20 do 

30 geta*sifa*=""then30 
33 help 

35 a = asc (a* ) : i-f a< 49or a >57t hen50 

36 n=a-48 

40 sound1,n ( n),4 

45 gshapen*,150,8*(6+(9-n)),4 

46 -f orz = lto50: nextz 

47 gshapen*,150,8#<6+(9~n)),4 
50 loop until a=32 

55 vo10sgraphic0:scnc1r 
60 end 

100 data345,383,453,516,571,596 

110 data643,685,704 

1000 graphic1,1 

1010 fory = 601o 124step16 

1020 drawl j. 100, yto200 i . y 

1030 nex ty 

1040 a* = " f edcbag-f e " 

1050 f orx=lto9sc=13 

106@ i-f int (x/2) =x/2thenc = 14 

1070 char1,c,x+6,mid* ( a*,x, 1 >,0 

1075 charlpC+10pX+6,right*(str$(10 -k),1) 

1080 nextx 

1090 ■forx = lto8s-fory=lltol6:drawl,x,y 
1095 nex t y,x 

1100 y=1:x=8:draw1,8,16tox,y 
1110 sshapen*,1,1,8,16 
1120 gshapen *, 1 , 1,4 
1130 return 
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Vie-invaders 


Een spel voor de VIC-20 bezitters. Het bijna klassiek 
geworden ’Space-invaders’ in een gloednieuwe vorm. 
De listing bestaat uit twee delen, die stuk voor stuk 
moeten worden geladen en gerund. Omdat het spel 
voor een groot gedeelte is geschreven in begrijpelijk 
Basic, is het zondermeer aan je eigen wensen aan te 
passen. Een knap stukje werk van Paul Prange. 


1 rem vic-invaders 

2 rem geen extra geheugen nodig. 

3 rem door paul prange, 

4 rem vaals / 04454-3630 

5 rem 

6 rem matrix van *** invaders 

* 

7 print "CCLR-H0ME3":poke36879,8spoke5 
4,2B:poke56,28:restore 

10 ■form = 7168to7175: r eadd: pokem, d: next 
20 data24,24,60,60,126,102,195,195 
30 -f or m = 7176to7335 : pokem, 0: nex t 
40 form=7336to7343:pokem,24:next 
50 •form = 7360to7399:readd:pokem,d:next 
55 data24,60,90,255,165,153,165,165 
60 data24,60,235,189,24,36,36,195 
65 data 108, 146,56,84, 124,124,68, 102 
70 data2,40,176,60,126,102,195,195 
75 data64,8,42,217,68, 148, 113,4 
80 poke36869,255:print"CGEEL3" 

82 -f orb = 7680t oB 185 : pokeb , 19 : nex t 
84 print" top 3xsxssxsxsssxssxssxx" 

86 pr int"ysyysysysssysysysysy" 

88 print"zszszzsszszsszzzszsz " 

90 print"xsxssxssxsxssxsxsxsx" 

92 print"ysyssysssysssysysyys" 

94 print"Cneer3szzszzzsszz" 

96 print"xsssxsxsxss" 

98 print"yyysyysssys " 

100 pr inf'zssszszsssz " 

102 pr inf'sxxsxsxsxxs" 

120 rem machine-taal + 

125 form=7400to7565sreadd:pokem,dsnext 
130 data 173,31,145, 170,41,16,240,96 
135 datal38,41,32,240,23,138,41,8,240,1 
8 

140 datal69, 127, 141,34, 145, 173,32, 145, 1 

62.255.142.34.145.41.128.240.7.96 
145 datal69,1,141,140,29,96 

150 datal73,205,31,105,233,144,5, 169, 1, 
141,141,29 

160 data 162,255, 189,205,30, 168,24, 105,2 
33,144,9,152, 157,206,30 
170 datal69,19,157,205,30 
180 data202,240,3,76,32,29 
190 data 162, 184,189,21,30, 168,24, 105,23 

3.144.9 

195 datal52, 157,22,30, 169, 19, 157,21,30, 

202.240.3.76.58.29.96 

200 data24, 173,22,30, 105,233, 144,1,96 
205 datal62,0,189,23,30,168,24,105,233, 

144.9 

210 datal52, 157,22,30, 169, 19, 157,23,30 ' 
215 data 189,242,30, 168,24,105,233,144,9 
220 data152,157,241,30,169,19,157,242,3 
0 

225 data232, 138,105,36,240,3,76, 94,29,9 

6 , 0,0 

230 ■form = 7566to7586:readd:pokem,d:next 
235 data24,162,255,189,205,30,105,232 
240 datal44,4,142,140,29,96 
245 data202,240,3,76, 145,29,'96 
250 form=7587to7602:readdïpokem,d:next 


255 data 135, 159,163,175,159, 135, 159,147 
,80,46,80,82,65,78,71,69 
300 m=7176 

310 -fork = lto20:readds-fort=32768+8*dto32 
775+8*dspokem,peek(t):m=m+lsnextt,k 
315 data4, 18,21,11, 15,16, 16, 12, 1,25,9,1 
9,12,15,1,4,9,14,32,7 
320 i fpeek<37151)and64 = 0then330 
325 print"CH0ME3 CWIT3 C 13xneer 3 abcdse-f sg 
hii"swait3715i,64,64 
330 print"Cop3ssssssssssss"sprint"Cop3k 
1 smnopqrt" 

335 at="tneer]load"+chrt!13)+"run"+chrï 
(13)spokel98,I®sform=ltol0:poke630+ 
m,asc(mid$(a$,m, 1 )) 

340 next 

345 -f or m=79 88108 185 s pokem+30720,0: pokem 
32 s nsx t 

350 print"C4xop3CZWART3" 

*** EINDE LISTING *** 


LISTING programma s vic-invaders 2 

1004 rem vic-invaders2 

1005 poke36869,242:q=1:x=8153:w=24 
1040 print"CCLR-H0ME3 CWIT3 C5xspatie3SET 

LEVEL"sprint"C5xspatie3 
Cneer 3" 

sprint"C2xneer3fl. . .Beginner" 

1045 print“tneerlf3..-Amateur"sprint" 

C neer 3 

■f5. . .Prof ie" sprint " Cneer3f 7. . -Exper 
t"sprint"C2xneer3Met Shift..Willeke 
urig" 

1050 a=peek(203)sb=peek(653) 

1055 ifa=39thens=10:m=0:max=i:tg=4:gotol 
080 

1060 i-fa = 47thens = 6sm = 44;max=2stg = 5: gotol 
080 

1065 ifa=55thens=4:m=0:max=3:tg=4:gotol0 
80 

1070 ifa=63thens=3:m=44:max=4:tg=5:gotol 
080 

1075 gotol050 

1080 ifb=1 thenq=0 ss=s+3 

1085 poke3 6B69,255 s print"CCLR-H0ME3"s f or 
t=7680to8185:poket,19snext:poke7565 
,0:ib=@:pokex,0 
1100 forb=7703to7921+msteps 

1105 if q>0thenq*int (rnd(1)itg)+1sonqgosut 
1135,1140,1145snextsgotol200 
1110 pokeb,w 

1115 ifh=lthenw=w+lsifw>26thenw=24 
1120 ifh=11hennext:goto 1200 
1125 i-f (b-7680) / 22=int ( (b-7680) / 22) thenw 
=w+l:ifw>26thenw=24 
1130 next:goto1200 
1135 pokeb,24:return 
1140 pokeb,25:return 
1145 pokeb,26:return 

1200 sys7400: i-fpeek (7565) = landib<>lthena 
k = 1 : p = p-*-300: f =2: gotol600 
1207 ifib=1andx = id— 11henvp = 2 

1209 i i ib=1andx=id+1thenvp=1 

1210 onvpgosub1220,1230:goto1240 
1220 x = x + l : ifx >8163thenx=x~l:return 
1225 pokex- 1 , 19:pokex,0sreturn 
1230 x = x- i : ifx<8142thenx=x+l:return 
1235 pokex+1,19:pokex,0sreturn 
1240 ifxb<>11hen 1280 

1245 t = peek ( id) : i-f t<24thenl255 
1250 gotol265 

1255 ifpeek(id+1)>23thenid=id+l:gotol245 
1260 i d= i d- 1 :goto 1245 
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1265 id = id+22s if id>8185then ib=0s y=id-22l 
pskey,2S)iak-2: goto 1500 
1270 pokeid-22,19»pokeid,t 
1275 ifx=*idthanak = ls y=x t pokey, 27: goto 150 
O 

1277 gotol290 

1280 ifpeek <7564) **lthensys7566s id=7B85+peek 
<7564)iib = l:goto 1245 

1270 tv»int<rnd<l)*<tg)>iifd=>maxthenl30 

5 

1295 if tv»lthend»d + l i d <d > «*x-22 
130O 1f d”0th«n 1350 
1305 -forb = ltod 

1310 d <b)-d <b)-22iifd < 1 ><76S0thenpoked <1 
)+22,19igotol370 

1315 i f pee k <d <b) > >23theny=d <b) igosublBOO 
spokey+22,19igotol500 

1317 ifpeek <d <b) +22) >23thenyd <b) +22» goaub 
1800»gotol500 

1320 poked<b)+22,19» poked <b),21 1 next» goto 
1350 

1340 fort«>ltod~lid <t)“d <t + l) insKtid=d-li 
b = b- 1 » nex t 
1350 iftv=2thenvp=l 
1355 iftv=3thenvp=2 
1360 iftv=4ortv=5thenvp”0 

1365 poke7565,O» poko7564,0»ifpeek<653><> 
5then1200 
1367 run 

1370 ifd=lthend<l)“Oi d»0i gotol350 
1375 goto 1340 

1500 z«=p eek <y> l ifak“ 0 thenpokey, 2 B 
1520 poke36877,140+tvtfort“Ototv»poke368 
78,tipoko36877,pBBk<36877)+4 

1522 iftv<7andtv>0thanpoks3O72O+y,tv+1 

1523 ns»t 

1525 poke36877,0» fort“0to7ipake7672+t,peek 
< <7168 + z * 8 ) +t) msxt 
1530 pokay,63Ipoka36876,135+d+tg+tv 
1535 fort»7to4Btep-lipoke3687B,t-4ipoke3 
6876, peek <36876)+tv+t 
1550 poka7672+7-t,0» pokB7672 + t,0iforr-lto 
lSmextr,tipokey, 19 

1560 pokey + 30720,1» poke36B76,0 1 r «=0»t»0! y 
«0iu»u+liifu>9thBnip“ip+50if“0igoto 
1600 

1562 ifak-2thenak-0igotol2B0 

1563 ifak“lthanp“p+50» ib**0« e-e+1» ifa>5than 
f“ 11 goto 1600 

1565 if *k«0then ip«ip+1O»goto1320 
1570 ak"0i gotol2B0 

1600 poka36B69,240»print"CCLR-HOME3compu 

tar..."ip»print"Cnaar3»palar."p 

»poke36B77,0 

1605 poka36B78,6» fort»75B7to7594» poke36B 

74+f,pBek <t)»forr“lto400inextr,tipoka 
36B74+f,0 

1710 ifak-lthenak-Oimax”max+lstg-tg-liif 
tg<5thentg=4 

1715 d«0ia»0i u«0»h“lIgotol085 
1800 if 1 d”y then ib *>0 
1805 return 


Vingervlug 


Om goed en snel te kunnen leren typen, kun je dit 
programmaaatje van Hans Kriele gebruiken. Het is zeer 
eenvoudig in z’n opzet, en zou haast een miniatuurtje 
kunnen zijn. Je krijgt een aantal letters op het scherm, die 
je na moet typen. Na afloop wordt het aantal foute 
aanslagen en de tijd die je nodig had om alles te typen op 
het scherm gezet. 


1 rem vingervlug / commodore—64 

2 rem door hans kriele 

3 rem spiikenisse / 01880-18340 

4 rem 

10 kl=53280!pokekl,0ipokekl+l,0:print" 
CCLR-H0ME3" 

20 input"[GEEL 3hoeveel letters wil ie" 

; i 

30 print" C CLR-HOME 3";ti*="000000" 

40 x = int(rnd< 1 )*26+1 ) 

50 d = d + l: if1=d-11hengoto 120 
60 printspc<15)chr$<x+64) 

70 pokel9B,0ïwaitl98, 1 
80 geta* 

90 ifa* = chr*<x + 64)thenprint"CCLR-HOME 1 
CGEEL 1 C 9x neer3 " 

100 ifa*Ochri <x + 64) thenpr int " [CLR-HOME] 
[W I T 1 C9x neer 1" 

110 got o40 

120 pr i nt " Cneer 3 ie hebt"l"letters met" 
sc "fout in dezet4xspatie3tiid: "ti* 

II 

130 pr i nt"C2xneer 3C 8 xrechts3wi1 je nog 
eens?" 

140 geth» 

150 ifh*= " j"thenrun 

160 ifh*="n"thenprint"CCLR-HOME3":end 
170 gotol40 

<** EINDE LISTIN 6 *** 


regel 

1 

3 

regel 

80 

6 

regel 

2 

169 

regel 

90 

116 

regel 

3 

52 

regel 

100 

141 

regel 

4 

143 

regel 

110 

237 

regel 

10 

88 

regel 

120 

88 

regel 

20 

148 

regel 

130 

176 

regel 

30 

129 

regel 

140 

13 

regel 

40 

60 

regel 

150 

104 

regel 

50 

187 

regel 

160 

12 

regel 

60 

82 

regel 

170 

30 

regel 

70 

96 
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Dubbel-border (versie 2 


Al eerder is in deze rubriek een subroutine geplaatst om 
de schermrand te voorzien van twee kleuren. Dat was een 
briljant idee, maar minder goed uitgevoerd, in verband 
met video-flikkeringen etc. Daarom een tweede versie, 
die deze problemen geheel ondervangt. Alleen bij het 
laden en saven krijg je nog psychedelische effecten op 
het scherm (helaas). Zie voor gebruik de regels 40 - 70. 


LISTING programma 


dubbel border 


1 

2 

3 

4 

5 

6 
10 
20 

30 


40 

50 

60 

70 

100 


rem 

rem 

rem 

rem 

o 

rem 
rem 
S = 0 


dubbelborder v2.0 / cbm-64 
door leon van der torre 
zevenhuizen / 01802-1624 
een verbeterde versie uit 

Jaargang 1 nummer 5 


c-ini 


restore 

forx=49152to49271 : reada: po k ex , a: 
+ a:n ex t 

i + s< >145B9thenprint"CCLR- 
HOMEl-f out 
in data":end 
sys49152,150,1,2 
rem 150 = positie 
scheidingsl iin 


1 02 

data 

253 

, 174 


9 

32 

, 158 

, 183 

103 

data 

142 

, 108 


9 

192 

, 32 

, 253 

104 

data 

174 

, 32 

9 


158 

, 183 

, 142 

105 

data 

95 , 

192 

9 


173 

, 21 , 

3 

106 

data 

201 

, 192 


9 

208 

, 1 , 

96 

1 07 

data 

1 20 

, 169 


9 

1 27 

, 141 

, 13 

1 08 

data 

220 

, 169 


5 

1 , 

141 , 

26 

109 

data 

208 

, 173 


9 

103 

„ 192 

, 141 

1 10 

data 

18 , 

208 

Jl 


169 

, 27 , 

141 

1 1 1 

data 

17 , 

208 

9 


169 

, 69 , 

141 

1 1 2 

data 

20 , 

3 , 

169 , 

192 , 

141 

1 1 3 

data 

21 . 

3 , 

88 

, 96 , 173 

114 

data 

25 . 

208 

9 


141 

, 25 , 

208 

1 15 

data 

41 , 

1 , 

240 , 

31 , 173 

1 1 6 

data 

32 , 

208 

9 


41 , 

15 , 

205 

117 

d a t a 

95 , 

192 

9 


240 

, 13 , 

169 

1 18 

data 

0 , 

141 , 


18 . 

208 , 

1 69 

1 1 9 

data 

0 , 

141 , 


32 , 

208 , 

76 

120 

data 

49 , 

234 

9 


169 

, 25 , 

141 

121 

data 

18 , 

208 

9 


169 

, 1 . 

141 

122 

data 

32 , 

208 

9 


104 

, 168 

, 104 

123 

d a t a 

170 

„ 104 


!» 

64 

, 234 

, 234 


rem 

rem 

data 


1 = 
2 = 
32 , 


32 

, 158 

101 data 183 , 1 

192 , 

32 

regel 

1 

121 

regel 

2 

61 

regel 

3 

14 

regel 

4 

171 

regel 

5 

4 

regel 

6 

143 

regel 

10 

251 

regel 

20 

12 

regel 

30 

13 

regel 

40 

32 

regel 

50 

141 

regel 

60 

177 

regel 

70 

179 

regel 

100 

209 

regel 

101 

251 

regel 

102 

8 

regel 

103 

254 

regel 

104 

5 

regel 

1 05 

1 10 

regel 

106 

156 

regel 

107 

250 

regel 

108 

1 50 

regel 

1 09 

46 

regel 

1 10 

2 1 3 

regel 

1 1 1 

218 

regel 

1 12 

154 

regel 

1 13 

67 

regel 

114 

203 

regel 

1 15 

94 

regel 

1 16 

148 

regel 

1 1 7 

215 

regel 

1 1 8 

156 

regel 

1 1 9 

1 0 1 

regel 

120 

2 1 4 

regel 

1 2 1 

157 

regel 

1 22 

25 1 

regel 

1 23 

252 


k 1 eur 
kl eur 
253 , 

142 , 


1 

2 

174 , 
103 





Computer & Electronic Supplies 

R. Hogerbeetsstraat 88 1052 XJ Amsterdam Tel.: 020-849319 

*** EPR0M-BANK *»• LEES DE TEST IN COMMODORE INFO I *** 

CBM-64 Eprombank voor 40/56K (E)PROM met opstart menu in PR0M f1. 125,= 
CBM-64 32K schakelbaar Eprom board met REBET voor 4/8K Eprom's fl. 69,= 
CBM-64 8K Eproip board voor 4/BK Eprom's gebruiksklaar! fl. 15,= 

CBM-64 80 karakterkaart met tekstverwerker fc calculator pgm, fl. 319,= 

CBM-64 inbouwprint met expansion-connector voor eprom boards fl. 49,= 

CBM-64 KERNAL/BABIC/CHAR inbouwprint voor twee 4K/BK Eprom'» fl. 39,= 

VIC-20 40/80 karakterkaart fl. 329,= 

VIC-20 16K RAM board compleet schakelbaar fl. 150,= 

VIC-20 32K RAM board compleet schakelbaar fl. 219,= 

CBM-64/VIC-20 TELEFOON MODEM UNIVERSEEL, RS-232, AUTÜ-D1AL fl. 549,= 

CBM-64/VIC-20 SAMM0N 64/20 cartridge Monitor en beschrijving fl. 69,= 

CBM-64/VIC-20 SAMM0N 64/20 cartridge Monitor en Toolkit fl. 99,= 

CBM-64/VIC-20 SAMM0N 64/20 Nederlands-talige beschrijving fl. 25,= 

CBM-64/VIC-20 RÖ-232C interface kan 20 mA leveren (TTY) fl. 79,= 

CBM-64/VIC-20 Viditel interface (bouwpakket) v.a. fl. 39,= 

CBM-64/VIC-20 2f-32K Eprom programmer met software en 21/25VI fl. 199,= 

CBM-64/VIC-20 EXPANSI0N BOARD 4 slots uitbreidbaar tot 5 slots fl. 99,= 

NIEUWi inbouw en eprom boards als bouwpakket v.a. fl. 5,= 

Eprom wisser vo<{jr 5 Eprom’s tegelijk fl. 129,= 

Eprom's 2716, 2732, 2764 v.a. fl. 15,* 

NAKAJIMA ALL NP-2200 printer near letter quality, 165 cpi fl. 1595,= 

NAKAJIMA ALL AP-650 Daisy Wheel printer met Centronics fl. 1895,= 

NAKAJIMA ALL AE-355 printer/schrijfmachine met Centronics fl. 1495,= 

NAKAJIMA Berie/ParalUl Centronics interface compleet fl. 189, B 

NAKAJIMA Centronics interface $< kabel U toolkit $8000/$C000 fl. 189,= 

3M FLOPPY’S SS DD 10 stuks in doos (Als enige dubbelzijdigI) 

3M CLEAN1NG SET voor 30 keer disk reinigingen 
SKC FLOPPY'S SS DD 10 stuks met ring en dubbelzijdig in doosl 
SKC Data-Cassette 6 st. C15 geen aanloopstrook in lu>;e hoes 
NABHUA FLOPPY'S SS DD 10 stuks met ring en dubbelzijdig! 

D.iskette verzendhoes extra verstevigd met lijmstrook 
Diskette bak voor 175 stuks floppy's 
Extra schotjes voor diskette bakken per paar 

PC-B0EK Boekhoudprogramma volgens Nederlandse situatie fl. 4B9,= 

Extra modules voor verlies/winst, balans, BTW, deb/cred adm. fl. 149,= 

PC-FAKT Faktureerprogramma 1000 artikelen en 99 leveranciers fl. 299,= 

PC-V00R VoorSadprogramma 4000 artikelen fl. 299,= 

PC-ADRES Adressenbeheer met sorteren, etiketten etc. fl. 129,= 

PC-TEKST Tekstverwerking, 60 brieven per diskette fl. 119,= 

PC-LEDEN Ledenadministratie fl. 219,= 

PC-HYPQ Hypotheekberekening fl. 129,= 

Alle software 12 maanden garantie, onderhoudsabbonnement fl. 25,= 

PRINTER LINTEN voor alle merken o.a.i 
BR0THER CE50 t/m HR35 Multi-Strike 100.000 tekens 
EPSON RX/FXB0 Nylon 
CBM-801 Nylon, navulbaar 
CBM-1526 Nylon, navulbaar 
GP-100 Nylon 
NAKAJIMA NP-2200 Nylon 
Ontbreekt Uw type, of wenst U een speciaal type lint bel voor prijsinfo! 

**«#**#*#*###**###**##*#*###***#*##*#«###*#*##***###**#»***##*#*#**####*# 
Afhalen, verzending, (fl. 10 porto extra) en informatie bel bij R.A.D, 
Computer Supplies. Telefoon i 020 - 849319, maandag t/m vrijdag van 
13.00 - 21.00 uur. Vidibus 400009963 en Viditel pag. 6248291 e.v. 

Voor de laatste nieuwtjesi bel 8CNBB8 020-934699 di-vr na 19.00 uur 
Dealer aanvragen welkom. BEL VOOR GRATIS FOLDER OF DEALER IN UW RE0IOI 

Ontwerpen van: interfaces en hardware projecten 
Verkoop van: 


1 

stuks 

5 

stuks 

fl. 

14,= 

fl. 

12 

f 1. 

1*;- 

f 1. 

14 

f 1. 

21,= 

f 1. 

1? 

fl. 

24,= 

fl. 

22 

fl. 

15,= 

fl. 

13 

fl. 

16,* 

fl. 

14 


software en hardware 




































Sprites opnieuw 


De zoveelste generator van sprites. Maar wel een listing, 
die kort genoeg is om op een avond in te toetsen. Verder 
krijg je een duidelijke (grote) matrix op je scherm, waar je 
de sprite op kunt ontwerpen. Dit doe je door gebruik te 
maken van de toetsen: /,z, x, *, spatie, 9, CLR HOME , 
HOME en d (voor data) en s (stoppen). 

Na het intypen van ’d’, wordt de ontworpen sprite als data 
in het programma gezet. Denk er dus aan het originele 
programma voor gebruik te saven. 


1 rem spritegenerator / commodore-64 

2 rem door rob danen 

3 rem den haag / 070-252436 

4 rem 

8 rem cursor 

9 rem 

10 V“53248ipokev+21,4!poke2042,13 

11 f o'r x “0t o20! p ok eB32 + x , 0 ■ nex t x 

12 forx=0to20step3 

13 poke853+x,255ipokeB53+(x + 1 ) , 0 

14 poke853+(x+2),255 

15 nextx 

16 forx=0to20ipokeB74+x,0snextx 

17 sy“v+5«sx=v+4«poke874,255ipoke875,2 
55ipokeB76,255 

18 rem bouw scherm op 

19 rem ============== 

20 X“24sy=64 

21 t1*="UCCCCCCCCCCCCCCCCCCCCCCCCI" 

22 t2i“"B[24xspatie3B" 

23 tSi^JCCCCCCCCCCCCCCCCCCCCCCCCK" 

24 ii="." 

25 dimsi(24)idimsd(70) 

26 f or e« 11 o24 > si (c ) ■ 1 * t nex tc 

27 print"CCLR-HOME3"iprinttli 

28 forc= 1 to 21 iprlntt 2 i«nextc 

29 prlnttï* 

30 print"CHOME3C 13xneer] t27xrechtsHRVS-aa 
n] spriteC2xspatle3[RVB-uit3" 

31 print "C27xrechts3CRVB—aanlgenerator 
CRVS-uitl" 

32 print"C27xrechts3CRVS-aan3doorsC4xspati 
elCRVS-uitl" 

33 pr int " C27xrechts3CRVS-aan3rob danen 
C RVS—uit 3" 

34 pr1nt"CHOME 3Cneer 3"ifore = 1to21«pr 1 nt 
"Crechtsl"si(c)snextcsgoto55 

35 rem menu 

36 rem ==== 

37 print “CHOME3Cneer3" 

3B forc“lto21iprint"trechtsa"si(c):next 
c 

39 g e t a i s ifai=""then39 

40 1fai="/"theny=y+B 

41 i -f ai = " ; " t heny=y -8 

42 1fai="z"thenx=x -8 

43 i f ai = 11 x " thenx =>x+B 

44 ifa*="l"then61 

45 Ha$=" " t h en 75 

46 ifai-"9"thenB7 

47 Ha *» 11 CCLR-H0ME3 "thengoto26 

48 1 f a i = " C H O M E 3 "thenx=24ï y = 6 4 I goto55 

49 if a*="d"then95 

50 i-f ai = " s " thenstop 

51 i-f x < = 1 6 thenx =x +8 I goto39 

52 i -f x > = 216t henx "X- 81 goto39 

53 i -f y< =56t heny = y + 81 goto39 

54 i -f y > = 232t h eny = y-B : go t o39 

55 pokesx,x:pokesy,y 

56 print"CHOME 3 C2xneer 3C29xrechts3y = C2xspa 
tie3"j (int ( (y — 56)/B> ) | "C2xspatie3" 

57 print"C29xrecht33x“C2xspatie3"|(int 
( (x —23)/ 8 ))+ 1 ;“C2xspatie3" 


58 goto39 

59 rem "Q" plaatsen 

60 rem ============ 

61 s=int((y-56)78) 

62 1 = int((x-23)/B) + 1 

63 i-fl = lthen7i 

64 if1=24then72 

65 a*="":forc=ltol-l 

66 ai=a*+mid*<s*(s),c , 1):nextc 

67 a*=a*+"Q" 

68 forc=l+lto24 

69 a»=a*+mid*(5*(s),c,1)inextc 

70 s*<s)=aiigoto37 

71 ai="Q":forc = 2to24ia* = ai + niid$(s*(s), 
c,1)snextcss*(s)=a*:goto37 

72 at=""!forc = lto23s a* = a* + mid*(s*(s> ,c 
,1)inextc:s*(s)=a*+"Q”sgoto37 

73 rem "Q" weghalen 

74 rem ============ 

75 s=int(<y-56)/8) 

76 1=int((x-23)/B)+1 

77 ifl=ithenB4 

78 a*=" "iforc«*ltol-l 

79 a*=at+mid$(5$(s),c,1):nextc 

80 a * = a * + "." 

81 forc=l+lto24 

82 a*=at+raid$!s*!s),e,1)jnextc 

83 s*(s)“aiigoto37 

84 ai=""iai=","iforc=2to24sai=ai+midi( 
sits),c,1):nextc:si(s)“aiigoto37 

85 rem "CRVS-aan3" reverse 

86 rem =========== 

87 forc = lto21s ai=""s forc1 = 11o24:print" 
CHOME3t26xrechts3“>21-c 

8B ifmidS(sitc) ,c1, 1)=". "thenai = ai + "Q" 

89 ifmid$(s*(c),cl, 1 ) = "Q"thena*=at + ". 11 

90 nextc1«si(c)=aiinextc 

91 pr int"CHOME3 C26xrechts3 C3xspatie3" 

92 goto34 

93 rem omrekenen 

94 rem ========= 

95 print"CCLR-HOME3CRVS-aan3data sprit 
eCRVS-uit3"ipokev+21,0 

96 forc=lto21 

97 at»""iforc1■1to8 

9B ifmidi(sitc),cl,1)="."thenai=ai+"0" 

99 ifmidi(sitc),c1,l)="Q"thenat=ai+”l" 

100 nextc1!t=0rgosub113 

101 ai=""sforcl=9tol6 

102 ifmiditsi(c),cl,1)=". "thenai=ai+"0" 

103 ifmidi(sitc),c1,1)»“Q"thenat=ai+"1" 

104 nextc1it=5igosub113 

105 ai» f orc1 = 17to24 

106 ifmidi(si(c) ,cl, 1)=". 11 thenaS = aS+"0" 

107 ifmidi(si(c),cl,l)°"Q"thenat=at+"1" 

108 nex tc 1 [ gosub 113s t=> 10« pr int 

109 nextcic2“0 

110 goto 120 

111 rem reken sub-routine 

113 a=0!b=0 

114 forc1=8to 1step-1!b=b +1 

115 a=a+val(midi(ai,b,l))*2t(cl-l) 

116 nextc 1 «c 2 =c 2 + 1 ssd(c 2 >=a 

117 print "CHQIiE3Cneer3"|c2:pokeB95+c2,a 
ireturn 

118 rem toon sprite + data 

120 poke2043,14ipokev+23,B:pokev+29,8 

121 pokev+ 21,8 

122 print"CCLR-HOME3C3xnBer3C2xspatie3U 
CCCCCCCI" 

123 print"C2xspatie3BC7xspatie3B" 

125 print"C2xspatie3BC7xspatie3B" 

126 print"C2xspatle3BC7xspatie3B" 

127 print"C2xspatie3BC7xspatie3B" 

128 print"C2xspatie3JCCCCCCCK" 

129 pokev+6,50ipokev+7,80 
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I 


pr lnt" E 3xneer Idruk een toets voor d 
ata " 

g e t a * i i f a*-" 11 then 131 

pokev+2l,0iprint"CCLR-HOMEJ" 

print " CCLR-HOMEDCneer3 naar CRVa-aanH 

sCRVB-uitleherm o-f CRVB-aan3ptRVS-uit3 

rlnter ?" 

geta*ii*a*«""thenl34 
pt*"n" 

ifa*="p“theninput"device nummer (4," 
|diopBn4,dipt*"J" 

■forc«lto63step4 

ifp*-"i"thenprint#4,sd(c) ;tab (10) js 
d < c +1) |tab(10) j sd(c + 2) (t ab (10)jsd(c 
+3) 

ifp*=" ) "thenprint#4," " 
i -f p*-" n" thenprintsd (c ) ;tab (10) ; sd (c 
+ 1);tab <20 )5 sd(c + 2)j tab(30);sd <c + 3) 
nex tc 

print"C2xneer3druk een toets" 


142 print"C2xneer 

Idruk 

een toet 

B" 


143 get« 

i* I i H 

Fa*-"" 

then 1 

43 



144 prir 

11"C CLR-HOME1"I 

pokev+21, 

4igoto27 

regel 

1 

120 

16 

_ 167 

28 

42 

regel 

2 

12 

17 

21 

29 

68 

regel 

3 

160 

18 

45 

30 

87 

regel 

4 

143 

19 

229 

31 

55 

regel 

8 

109 

20 

31 

32 

254 

regel 

9 

253 

2 1 

133 

33 

217 

regel 

10 

203 

22 

36 

34 

84 

regel 

1 1 

161 

23 

126 

35 

196 

regel 

12 

157 

24 

179 

36 

131 

regel 

13 

252 

25 

195 



regel 

14 

46 

26 

20 



regel 

15 

218 

27 

236 




Een Nederlandstalig boek (168 
pag.), waarmee u niet alleen inzicht ) 
krijgt in wat er met Basic 3.5 alle- L 
maal mogelijk is, maar ook veel bre- f 
dere computertoepassingen be- f 
handeld worden en randapparatuur \ 
en software uitgebreid aan de orde | 
komen. 

Het onmisbare boek 
voor iedere C-16 
bezitter, compleet met 
vele 

programmavoorbeelden, 
zoals een klein 
tekstberwerkings - 
programma. 


regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
r ege 1 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 


254 

239 
107 
176 
125 
205 
8 

39 

152 

167 

39 

95 

4 
1 

46 

7 

1 80 
180 
81 
226 

240 

5 1 

1 80 
149 
174 
73 
19 
183 
194 
128 
19 
183 
199 
174 
19 
1 83 


Prijs 


ƒ 27,50 

vwzendfcosten 


VOOR DE €-16. 

■ 

ook bruikbaar 
voor PLUS/4 


Te koop bij Filmpost, Gameworld, 

Calimero, Verwijs en Stam, Collec¬ 
tief, PC-shop, Radiobeurs, Cafka. 

Van start met de C-16 in Basic 3.5 


. 


Direkt te bestellen bij: 

Infolist, Stationsweg 39b te Arkei 
01831-2904. 

Gironummer 3157656 tnv. Infolist. 
Alleen levering na vooruitbetaling of 
onder rembours. 
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Huisverbruik 


In Urk hoeven ze niet meer wakker te liggen van de 
energie-crisis. Gerrit Koffeman (uit Urk) heeft ervoor 
gezorgd, dat van een heel jaar het verbruik van gas, water 
en licht in de computer kan worden opgeslagen. Je kunt 
op elk gewenst moment een overzicht van je totale 
verbruik bekijken. Het programma werkt met bestand- 
sopslag op disk, maar door het aanpassen van regels 
480/530 en 610, kun je het simpel geschikt maken voor 
gebruik met cassette. Device 8 wordt 1. Van de scher- 
mopmaak kun je in ieder geval wat leren 


1 3£4xspatie3 
3 £ 4x spat ie 3to 
3[4x spat 1e 3pr 
3 £4xspatie3sa 


1 rem huisverbruik / commodore-64 

2 rem door gerrit koffeman 

3 rem uit urk 

4 rem 

10 dimmf(13>,q(4,13) 

20 mt(l)» " januari" imf(2)»“-februari "imf 
(3) = 11 maart “imf(4)““ april" 

30 mf (5)="mei"imf(6)-"juni"imf(7)-"iul 
i " :mf(8)="augustus" 

40 mf(9 > »" september " i mf ( 10) « 11 oktober " i‘ 
mf (11) »"november“imf(12)»"december" 

50 vt(1)="gas"iv*(2)«"licht"ivf(3)«"wa 
ter" 

60 opt="C40xspatie3" 

70 rem .. menu . ... 

B0 print"!CLR—HOME31WIT3":af="ff menu 
* * " :gosub 840 

90 printtab(5)"£3xneer3[ 1 3C4xspatie3 
invoer" 

100 printtab(5)"[neer 3£ 2 3£4xspat ie3to 
talen" 

110 pr i nttab(5>”£ neer 3 £ 3 3£4xspatis3pr 
inten" 

120 printtab<5>"[neer 3E 4 3[4xspatielsa 
ven / laden" 

130 gosub8B0i i -f val (alKlorvil (af) >4then 
130 

140 onval (af>gotol60,340,680,4BO 

150 rem ..invoer...... 

160 af»"gas, licht, water"igosub840iprint 
tab(5)”C3xneer3C 1 3C6xspatie3gas" 

170 printtab(5)"Cneer3C 2 3C6xspatie31i 
cht" 

180 printtab (5) "EneerlE 3£fh i-f t-SPATIE3 
3E6xspatie3water“ 

190 gosubBBO 

200 i-fval (atXlarval (af ) >3then 190 
210 u»val (af) i -f ory»1 to250■ next 
220 af»"invoer C2xspatiel"+vf(u)igosubB4 
01 input"[2xneer3[2xrachts3welke maa 
nd wenst u Cnr.3"|m 
230 ifm<lorm>12then220 

240 pr inttab(29)"Cop 3 CRVS-aan3"mf(m)"CRVS-u 
i t3 " iprint"Cneer3"tab(15)"o.k. Cj/n 
3" igosub880 
250 ifa*»"n"then220 

260 at«"invoBrCZ*Bpatiel ll + v$ (ul+’^luspatle) 1 
+ mf(m)agosub840 

270 inpuf'CneerIgee-f begin meterstand"j 
bs 

280 input"[neer3geef eind meterstand "| 
es 

290 print" [22x spatie!-" 

300 print"[Bxspatie3verbruik[6xspatle3" 
es-bs 

310 q (u, m) » (es—bs) 

320 gosub880Igoto80 

330 rem.....totalen.‘. . . 

340 gosub940 

350 af="totaal verbruik “:gosub840 
360 print"[2xspatie3maand£2xspatie3l £3xspat 
ie3gas£4xspatie3l 1icht[3xspatie3l 
water" 


print " ” 0 “--O- 

- 0 -„ 

■f or i = ltol 2 

printm#(i>+lBftS(opf,9-len<mf(i>>>j 

print"! ")tab(20)”l "jtab(30)"l "inent 

fory=0to39iprint"-"f inent 

print"[neer 3"tab( 12 )q(l, 0 )|tab( 22 )q 

(2,0)|tab(32)q(3,0) 

print"[HOME3E5xneer3" 

fory=ltol2igosub910 

printtab(12)z f j tab(22)x f;tab(32)et: 

next:gosubBBO 

gotoBO 

ren.laden/saven.. 

af="laden en eaven"igosubB40 1 open 15 
,8, 15 

input"£2xneer3[3xrechts3wi1t u [RVS-aan 
31 [RVS-uitladen o-f [ RVS-aan 3 s [ R VS-u i t 3 
aven " ia* 
i-faf»“l "then600 

ifa*<>"s"thenprint"[4xop3":goto490 
af»"saven" i gosub840:input"[2xneer3n 
aam “ ; h* 

open 2 , 8 , 2 ," 00 :"+h*+",s,w" 
gosub790 

•foru=»lto3:-form=ltol2 
print# 2 ,q <u,m) 
gosub790inextcnext 
c1ose2iclose15 
gotoS 0 

af""laden"igosub840iinput"£2xneer3n 
aam"|hf 

open 2 , 8 , 2 ,hf+",s,r“ 
gosub790 

■foru»lto3i-form»ltol2 
input* 2 ,q(u,m) 
gosub790:nextinext 
close 2 :closelSigotoSO 

ree...........printen. 

open4,4:af""totaal verbruik " 
print#4,"ni2xspatie3"a* 

prlnt#4iprint#4,"£3xspatie3maand[ 6 xspat 
Ie3gas[6xspatis31icht[6xspatie3wate 
r " 

forx»0to39»print#4,inentiprint# 

4 

fory“ltol2:mf(y)“mf(y)+le-ftf(opf,9- 
len(mf(y)))igosub910 

print#4,m*(y)"C3xspatie3"i*"[6xspatie3" 

xf"£6xspatie3“cfinext 

•f ory»0to39ipr int *4, : next: print# 

4 

gosub940 

print#4,"£ 12xspatiel"q(1,0)"[5xspatie3" 

q(2,0)"£7xspatle3"q(3,0)iclose4igoto 

70 

rem ..gosub....... 

rem. fff error lezen op disk fttf 

input#15,en,emf,et,es 

ifen» 0 thenreturn 

pr int"C4xrechts3 error op de disk " 

printen|emf|etjea 

close2iclosel5:end 

v“(40—1 en(af) )/2 

print"[CLR—HOME3 £RVS-aan3"opf 

print"[RVS-aan 3 £op 3"1eftf(opf,v )5 af 

I 1 e-f t f (opf , v+ 1 ) 

print"[RVS-aan3[op3"opf"[RVS-uit 3" 1 
return 

print"[HOME!£23xneer 3 £ 1lxrechts3[RVB-aa 
nldruk op een toets![RVS-uit3" 
getaf 1 i-f af»" ”thenB90 
return 

gt=strf(q(i,y)):g=len(gf):zf»leftf( 

opf,5-g)+gf 

hf = strf(q ( 2 ,y) > ih»len (hf) ixf»le-ftf( 
opf,5-h)+hf 




50 
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930 f» = *tr$(q(3,y) ) lf «l«n (f *) t* ( 

op*,5—rat urn 
940 foru”1to3Iq<u,0)“0 

95© forx=ltol2:q(u,0)=q(u,0)+q(u,x)jnext 
inextireturn 





regel 

440 

37 




regel 

450 

35 

huisverbruik 

regel 

460 

241 




regel 

470 

101 




regel 

480 

103 

regel 

1 

157 

regel 

490 

53 

regel 

2 

215 

regel 

500 

1 1 1 

regel 

3 

115 

regel 

510 

19 

regel 

4 

143 

regel 

520 

36 

regel 

10 

62 

regel 

530 

179 

regel 

20 

159 

regel 

540 

45 

regel 

30 

46 

regel 

550 

130 

regel 

40 

63 

r eqel 

560 

102 

regel 

50 

31 

regel 

570 

165 

regel 

60 

185 

regel 

580 

18 

regel 

70 

158 

regel 

590 

241 

regel 

80 

74 

regel 

600 

1 1 

regel 

90 

205 

regel 

610 

22 

regel 

100 

240 

regel 

620 

45 

regel 

1 10 

250 

regel 

630 

130 

regel 

120 

235 

regel 

640 

82 

regel 

130 

156 

regel 

650 

165 

regel 

140 

129 

regel 

660 

61 

regel 

150 

224 

regel 

670 

91 

regel 

160 

247 

regel 

680 

247 

regel 

170 

77 

regel 

690 

161 

regel 

180 

253 

regel 

700 

117 

regel 

190 

45 

regel 

710 

245 

regel 

200 

58 

regel 

720 

12 

regel 

210 

112 

regel 

730 

252 

regel 

220 

135 

regel 

740 

108 

regel 

230 

8 

regel 

750 

42 

regel 

240 

22 

regel 

760 

140 

regel 

250 

1 1 1 

regel 

770 

141 

regel 

260 

2 

régel 

780 

135 

regel 

270 

29 

regel 

790 

20 

regel 

280 

219 

regel 

800 

53 

regel 

290 

235 

regel 

810 

46 

regel 

300 

31 

regel 

820 

196 

regel 

310 

75 

regel 

830 

204 

regel 

320 

88 

regel 

840 

192 

regel 

330 

200 

regel 

850 

69 

regel 

340 

42 

regel 

860 

242 

regel 

350 

237 

regel 

870 

225 

regel 

360 

44 

regel 

880 

183 

regel 

370 

6 

regel 

890 

1 10 

regel 

380 

180 

regel 

900 

142 

regel 

390 

148 

regel 

910 

234 

regel 

400 

16 

regel 

920 

238 

regel 

410 

7 

regel 

930 

1 52 

regel 

420 

132 

regel 

940 

255 

regel 

430 

69 

regel 

950 

186 


Computerster 


De reclame-jingle van Loekie de Leeuw komt nu uit de C- 
64. Als je goed luistert denk je bijna dat het de STER is. 
Door de data in de regels 100 tot 140 te wijzigen, 
verandert ook de deun. Denk eraan geen getallen te 
gebruiken die groter zijn dan 255 of kleiner dan nul. 


1 rem computerster / commodore-64 

2 rem door erik hendrikx 

3 rem uit westervoort 

4 rem 

10 -f ori "342721054296 1 pok es, Oi nex 1 1 k”34 
272ipo kek+ 5,0ip okek + 6,2401pokek + 4,1 
7 

30 pokek+24,15if or x -1 to33 1 reads, b, u pake 
k + l,a«pokek,bi-fort“ltocjnextinext 

70 rem 

100 data57,172,100,0,0,0,57,172,100,0,0 
,0,57,172,100,0,0,0,57,172,125 
110 data 51,97,250,45,198,125,38,126,25 
0,34,75, 125,38, 126,250,45, 198, 125 
120 data 51,97,250,57,172,250,0,0,250,5 
7,172,100,0,0,0,57,172,100,0,0,0 
130 data 57,172,100,0,0,0,57,172,100,0, 
0,0,61,126, 110,68, 149,250,57, 172, 12 
5 

140 data 45,198,250,38,126,125,45,198,2 
50,51,97,357,45,198,250,0,0,0 

* EINDE LISTIN6 *** 


computer ster 


regel 

1 

167 

regel 

2 

75 

regel 

3 

245 

regel 

4 

143 

regel 

10 

82 

regel 

30 

164 

regel 

70 

143 

regel 

100 

6 

regel 

110 

195 

regel 

120 

66 

regel 

130 

20 

regel 

1 40 

246 

ready 

. 
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Datamaiker 


Een heel handige utility, waarmee een willekeurig blok 
computergeheugen In Basic dataregels wordt omgezet. 
De begin- en eindadressen moeten decimaal worden 
ingegeven. De grap, waardoor het programma zichzelf 
a.h.w. wijzigt, schuilt in regel 5, waarin door de computer 
zelf (op het scherm) het commando ’RUN6’ wordt gezet 
en uitgevoerd. 


it " CCLR-HOMElbegin adres";ba: input 
id adres " ;easrn =100 


rem datamaker/cbm-64 door 1 v/d tor 
r e 

input 
"'e i n c 

print" CCLR-HOME1 C2xneer]9data";ba; " 

, ";ea; ", " ; rn sprint"run4 CHOME ]"5 

632, 13:poke633, 13:poke634, 13:poke 
3 s end 

ba,ea,rn:print"[CLR-HOME]C 2xneer 3" 
"data";:torx=0to4:printpeek(x+b 
, " ; s n e x t 

t"C DELete]"s print"run 6 CHOME 3 " ; s 
632,13spoke633,13:poke634,13spoke 
3 s en d 


p o k e 
198, 
r ead 
; rn ; 
a > ; " 
pr i n 
poke 
198, 
r ead 
athe 
goto 


nend 

2 
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rn=rn+l: 

i-f ba 

regel 

0 

134 

regel 

1 

94 

regel 

2 

35 

regel 

3 

73 

regel 

4 

221 

regel 

5 

4 

regel 

6 

6 

regel 

7 

187 


Delete 


Een simpele routine, die ervoor zorgt dat regels uit een 
programma kunnen worden verwijderd, zonder met de 
cursor eindeloos over het scherm te hoeven bewegen. 
Het werkt langzaam maar doeltreffend. Je moet voor het 
gebruik wel de zes programma-regels als eerste regels 
van je eigen programma intoetsen, anders werkt het niet. 
Niet de meest elegante oplossing, maar wel kort. 


0 rem delete/cbm 

1 input"CCLR-HOME 
"eind regel";er 

2 pr int"ECLR-HOME 
, ";er:print"run 

3 poke632,13:poke 
198,3:end 

4 readbr,erspr i nt 
; br 

5 print:print"run 
:poke633,13 s pok 

6 readbr,ersbr=br 

7 goto2 


64 door 1 v/d tor 
3begin regel";br: 


re 

input 


3[2xneer39data";b 

4CHOME 3" 5 

633, 13s poke634, 13 


r ; " 
poke 

"CCLR-HOME3 C2xneer3 " 


6CHOME3" ; :poke632, 13 
e634,13:pokel98,3:end 
+ 1: ifbr>erthenend 


regel 

0 

1 75 

regel 

1 

99 

regel 

2 

191 

regel 

3 

73 

regel 

4 

121 

regel 

5 

1 72 

regel 

6 

149 

regel 

7 

187 


Smooth scroll 


Het echte smooth scrollen van het scherm was tot nog toe 
uitsluitend voorbehouden aan de machinetaal-freaken. 
Maar daar brengt dit programma verandering in. Hiermee 
kun je vanuit Basic een deel van het scherm heel mooi 
laten scrollen. 

Een demo van de werking is ingebouwd. Voordat je er zelf 
mee aan het werk gaat, verdient het aanbeveling de regels 
60 en 70 goed te bestuderen. Nadat dit programma is 
gerund, blijft het aanwezig, tot je de computer uitzet. 



1 

rem 

smoot 

: h sera 

ill / 

commodore-64 


2 

rem 

door 

1 eon v 

an de 

r torre 


3 

rem 

2 even huiz en 

/ 01 

802-1624 


4 

rem 






10 

S = 0 






20 

f or x 

=49152to49280:re 

ada:po k ex,a: 



+ a : n 

ex t 





30 

i-f s< 

>18585thenp 

r i nt " 

CCLR-HOMElf 01 



in d 

at a " 8 

end 




40 

rem 

demo 





50 

rem 

sys49152 = 

scrol 

1 


60 

p r i n 

t"CCLR-HOME 

: 3 " ; : -f 

orx=lto20:pr 



" smo 

ot h = 

icroll 

c ommo 

d ore info ! " 


70 

■f or x 

= 11 o20 ssys49152s 

n ex t:end 

1 

00 

data 

165 

, 172 

, 72 

, 165 , 173 

1 

01 

data 

72 , 

165 , 

1 74 

, 72 , 165 

1 

02 

data 

175 

, 72 , 

162 

, 255 , 198 

1 

03 

d at a 

214 

, 198 

, 201 

, 206 , 165 

1 

04 

data 

O 

■*- 9 

232 , 

32 , 

44 , 192 

1 

05 

d at a 

224 

, 24 , 

176 

, 12 , 189 

1 

06 

data 

241 

, 236 

, 133 

, 172 , 181 

1 

07 

data 

218 

, 32 , 

200 

, 233 . 48 

1 

08 

data 

236 

, 76 , 

1? , 

233 , 224 

1 

09 

da t a 

0 , 

208 , 

42 , 

120 , 169 

1 

10 

data 

6 , 

141 , 

150 , 

192 , 32 

1 

1 1 

data 

1 09 

, 192 

, 173 

, 17 , 208 

1 

12 

da t a 

41 , 

240 , 

24 , 

109 , 150 

1 

13 

data 

1 92 

, 141 

, 17 

, 208 , - 206 

1 

14 

data 

150 

, 192 

, 16 

, 236 , 160 

1 

1 5 

data 

40 , 

204 , 

18 , 

208 , 208 

1 

16 

data 

251 

, 169 

, 128 

, 44 , 17 

1 

1 7 

d at a 

208 

, 208 

. 242 

, 240 , 15 

1 

18 

data 

224 

, 13, 

20B 

, 11 , 173 

1 

19 

data 

17 , 

208 , 

41 , 

240 , 24 

1 

20 

dat a 

105 

, 7 , 

141 , 

17 , 208 

1 

2 1 

data 

3 2 , 

240 , 

2 3 3 

, 96 , 160 

1 

2 2 

data 

jL. « 

169 , 

248 , 

205 , 18 

1 

23 

data 

208 

, 208 

, 251 

, 169 , 249 

1 

24 

d a t a 

205 

, 18 . 

208 

, 208 , 251 

1 

25 

data 

1 36 

, 208 

, 239 

, 96 , 234 


nex t 


regel 

1 

163 

regel 

1 08 

213 

regel 

2 

61 

regel 

109 

150 

regel 

3 

1 4 

regel 

1 1 0 

1 50 

regel 

4 

143 

regel 

1 1 1 

6 

regel 

10 

53 

regel 

1 12 

196 

regel 

20 

12 

regel 

1 13 

255 

regel 

30 

13 

regel 

114 

254 

regel 

40 

180 

regel 

1 15 

202 

regel 

50 

159 

regel 

1 16 

214 

regel 

60 

21 

regel 

1 17 

251 

regel 

70 

2 1 

regel 

1 1 8 

1 98 

regel 

1 00 

9 

regel 

1 1 9 

1 50 

regel 

101 

217 

regel 

1 20 

152 

regel 

102 

1 6 

regel 

121 

204 

regel 

103 

51 

regel 

122 

163 

regel 

104 

101 

regel 

123 

62 

r ege 1 

105 

212 

r ege 1 

124 

255 

regel 

106 

48 

regel 

125 

13 

regel 

1 07 

20 1 
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Hollands foutje 


Een stukje Basic, dat kan worden gebruikt als een aardig 
hulpmiddel bij het programmeren. De standaardmeldin¬ 
gen als ’Syntax error’, ’too many files open’ en ’division by 
zero’ etc. worden door dit programma nl. vervangen door 
nederlandse boodschappen. Leuk om te zien, aardig om 
te hebben en zeker voor kleinere kinderen de moeite 
waard om te gebruiken. Het programma runnen, daarna 
’NEW’ en alles kan weer met de 64 (in Basic) worden 
gedaan. 


1 c0=49152:r em*c000 

2 c5=49232srem*@50 

3 C 9=49296:rem*c09@ 

4 rem 76B:139->0 

5 rem 769:227->192 

6 rem* 

7 rem* dit is een programma van mark 
westbroek 

8 rem* het maakt het mogelijk de stan 
daard foutmeldingen te veranderen, 

9 rem* en list in programmastand de p 
ragrammaregel te veranderen met de 

f out. 

10 rem*voor de commodore-64 

1 1 rem 

12 rem 

15 fort=c0toc0+76ireada:poket,a:next 

20 reada*:t = 1: if1 en(a$)=0then22 

21 fort=ltolen(a$):pokec9+t-l,asc(midt 
(a$,t,1)):next 

22 pokec9+t-l,0 

30 a = c 9 + t:b=c5:forf=lto30:c=(a-32768)and 
255:pokeb,es pokeb + 1, <a-c)/256:b=b+2 

35 reada*!fort=ltolen< a$)-1:pokea,asc( 
mid*(a*,t,1))sa=a+l:next 

40 pokea,asc(right*(a*,1))+128:a=a+l:nex 

50 poke768,0:poke769,192:rem activeren 
nieuwe foutmeldingsroutine 

90 rem**************************** 

91 rem* * 100-120 = machinecode prg.** 

92 rem**150 = " C2xspatie1 error " 

* * 

93 rem* * 201-229 = foutme1dingen ** 

94 rem**************************** 

100 d at a138, 16,3,76, 116, 164, 10, 170, 189, 

78,192,133,34,189,79,192,133,35,32, 

204 

110 d a t a 255, 169, , 133, 19,32,215, 170,32,6 
9,171,160,,177,34,72,41,127,32,71,1 
7 1 

120 d a t a 2 00, 104, 16,244,32, 122, 166, 169, 1 
44, 160, 192,32,30, 171, 164,58,200,240 
, 199 

130 datal65,57, 13 3,20, 165,58, 133,21,32, 
194,189,32,19,166,76,201,166 

150 data 

201 datate veel files,file al geopend,f 
ile niet geopend,file niet gevonden 

205 dataapparaat niet aanwezig,geen inv 
oer file,geen uitvoer file 

208 datageen fi1 en aam , fout apparaatnumm 
er,next tonder for,zinsbouw fout 

212 datareturn zonder gosub 

213 datageen data meer,foute waarde,ove 
rflow,geheugen vol 

217 dataniet bestaande regel,fout array 
-e1ementnummer,array al gedim’d 

220 datadeling door nul,mag niet in dir 
ecte mode 


222 

d at af out 

type variabe1e,str i ng 

te 1 


ang , fout 

in file 

data,f ormule 

t e mo 


e i 1 i j 

k 





226 

datak at n 

niet door g aan , n i et gede-f ine 


erde 

funktie,verificatie 

fout 


229 

dataleesfout,stop 

fout 



* * * 

EINDE 

LISTING *** 





hol 1ands 

f out j e 

regel 

90 

39 





regel 

91 

236 





regel 

92 

216 


regel 

1 

234 

regel 

93 

162 


regel 

2 

176 

regel 

94 

39 


regel 

3 

5 

regel 

100 

233 


regel 

4 

166 

regel 

110 

157 


regel 

5 

17 

regel 

120 

250 


regel 

6 

185 

regel 

130 

245 


regel 

7 

122 

regel 

150 

131 


regel 

8 

214 

regel 

201 

230 


regel 

9 

59 

regel 

205 

42 


regel 

10 

196 

regel 

208 

118 


regel 

1 1 

143 

regel 

212 

181 


regel 

12 

143 

regel 

213 

77 


regel 

15 

120 

regel 

217 

166 


regel 

20 

136 

regel 

220 

70 


regel 

21 

88 

regel 

222 

186 


regel 

22 

73 

regel 

226 

54 


regel 

30 

113 

regel 

229 

154 


regel 

35 

142 





regel 

40 

65 





regel 

50 

197 

r eady 




Jan Bodzinga. 




h 

I 


! 

s 

! 


! 






Wie zelf programma’s schrijft, kan die opsturen naar 
de redactie. We hebben op dit moment een prijs¬ 
vraag lopen, en om inzenders van eerdere pro¬ 
gramma’s een eerlijke kans te geven, bekijken we 
ook hun programma’s bij de bepaling van de winnaar. 
Stuur de programma’s (of uw commentaar erop naar 
de redaktie (t.a.v. Rob vd Heuvel of Jan Bodzinga). 
Vermeld in een briefje wat je met het programma 
kunt doen, en voor welke computer het geschikt is. 
We moeten helaas nog steeds een groot deel van de 
ons aangeboden listings terugsturen, omdat er toch 
nog (kleine) foutjes in worden aangetroffen, en daar 
zitten we niet om te springen uiteraard. De gepubli¬ 
ceerde listings zijn door ons meermalen getest en 
bekeken op bruikbaarheid. Als de listing deze proef 
doorstaat, besluiten we het programma te plaatsen. 
Dit wil natuurlijk niet zeggen, dat het 100% zeker is, 
dat er werkelijk geen fouten in zitten. Maar we doen 
ons best. 

Het heel lange machinetaal-programma ’KOKOS’ 
moet je zien als een uitzondering, vanwege de kwali¬ 
teit van deze listing. We gaan de listings in dit 
nummer overigens weer op band of disk zetten 
(tezamen met de listings uit het vorige nummer 
wordt dat dan Infolist no V), zodat iedereen ten volle 
van dit spel kan genieten. Onze ’INFOLIST-service’ 
kan natuurlijk ook listings uit oudere nummers blij¬ 
ven leveren. 
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Wie veel programmeert, krijgt be¬ 
hoefte aan wat hulpfunkties. Een 
handige oplossing daarvoor zijn de 
insteekmodules of Toolkits. Ze zijn 
er van verschillende huize, met 
waarschijnlijk Kolff’s TAPE QUEEN 
en DISK SPEEDLOADER als meest 
bekende, maar ook FLIP’s toolkit is 
bij velen een onmisbaar stukje ge¬ 
reedschap, terwijl in modules zoals 
RADARBASIC 50KB ook al een aan¬ 
tal toolkitfunkties zitten. 




We gebruiken zelf ook verschillende 
van die toolkits en eerlijk gezegd doen 
ze het allemaal heel goed en worden 
echte verbeteringen ook snel overge¬ 
nomen. Wel moet u er om denken, dat 
de ontwikkeling zeker niet stilstaat en 
men dus goed op moet passen welke 
versie men koopt. 

Share Operating Service, kortweg 
SOS, brengt een hele serie nuttige 
hulpmiddelen op de markt onder de 
merknaam WEKA, al hebben we ge¬ 
hoord dat men nu naar een andere 
naam zoekt. 

Deze toolkits zijn allemaal bestemd 
voor de Commodore-64, en worden 
aangesloten op de expansie-poort. 
De verzorging aan de buitenkant is 
deugdelijk en fraai, het ding past goed 
en laat zich zonodig gemakkelijk ver¬ 
wijderen. De werking van de door ons 
bekeken tools is redelijk tot goed. Alle 
ingebouwde funkties doen waar ze 
voor staan, en ook de snelheid waar¬ 
mee dit gebeurt is te aanvaarden. 

In feite is er uitgegaan van een hele 
serie hulpcommando’s, die op ver¬ 
schillende manieren zijn gekombi- 
neerd, zodat de gebruiker de voor hem 
juiste selectie zonder moeite kan be¬ 
palen. 

Hoofdfunkties onderscheiden zich in 
het gebruik van disk of tape en daar¬ 
naast het al of niet gebruiken van 
machinetaal of eventueel een Centro- 
nics-printer. 


Standaard programmeerfunkties zijn 
o.a. AUTO,DEL,DEC,DUMP & FIND, 
HELP,HEX,KEY OLD en PUST. Daar¬ 
naast een snellader/saver voor disk (6 


maal) of cassette (10 maal) en voor de 
disk alle funkties die horen bij Basic 
4.0, dus b.v. Dload en Dsave. De ma¬ 
chinetaal monitor heeft meer dan 30 
commando’s en dat zijn er 16 meer 
dan gebruikelijk, al zitten er heel een¬ 
voudige tussen. 

Verder zijn alle modules uitgerust met 

een routine die het afregelen van de 

recorderkop simpel maakt, en dat is 
vrij bijzonder. 

Voor alle modules geldt verder, dat er 
geen Basic RAM wordt gebruikt. Het 
pakket voorziet ook in een Nederland¬ 
se handleiding (beknopt maar duide¬ 
lijk) en de apparaatjes zijn getest. 

De prijzen lopen uiteen van ƒ 79,- voor 
de simpele turbotool, tot bijna het 
dubbele (ƒ 132,50) maar dan is deze 
turbootool gekombineerd met de MT- 
monitor, die op z’n beurt apart ƒ 82,50 
kost. 

Al met al een hele serie nieuwe artike¬ 
len, waarmee de mogelijkheden voor 
de liefhebbers van ’toolkits’ weer eens 
zijn uitgebreid. 

J.B. • 
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32kB GEHEUGEN, uitbreiding, schakelbaar. 

64kB GEHEUGEN idem, met speciale Ramfile software. 
40/80 TEKENKAART j professioneel, 80 tekens per regel. 
UITBREIDINGSKAART, 2 slots, spaar uw konnektor. 
UITBREIDINGSKAART, 5 slots, schakelbaar, gebufferd. 
EPROMKAART, voor 2K, 4K en 8K EPROMS, instelbaar. 

UITBREIDINGSKAART, 2 aio,s 

UITBREIDINGSKAART, 5 slots, schakelbaar, gebufferd. 

_E PR O M KAART, voor 2K, 4K en 8K EPROMS, instelbaar. 

• • EPROMPROGRANIMER, et e gen programma's op EPROM. 

• •EPROM WISSER, wist 4 EPROMs gelijktijdig. 

ZENITH MONITOR, haarscherp, groen/amber beeld. 




ïl/O BOX 
rRELAISBOX 


49. 50 INFRA-ROODSYS. 149. 50 | 

79.50 SERVO MOTOR SYS. 39.5o| 


zeRo 

Nikkelstraat39 
2984 AM RIDDERKERK 
Tel. 01804 - 30 233 


• Alle prijzen excl. BTW 

• Verzending onder rembours of per 
vooruitbetaling. 

• Vraag kosteloos de uitgebreide folders a 

• Ook zaterdags geopend 

Dealer aanvragen welkom. 
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Een aantal maanden geleden (jaargang 1, no. 4) gaven wij een aantal suggesties om de 
presentatie van tekst op het scherm aantrekkelijker te maken. Een programma kan nog 
zo slim, knap of ronduit geniaal zijn, de waarde voor de gebruiker hangt altijd ook af van 
de ’opmaak’. Een bekend culinair uitgangspunt. 

In dit artikel geven we enkele gekompliceerde programma’s en ideëen om die 
"finishing touch” aan te brengen. 

SCHERMWERK 

Verlevendig de tekst op het beeldscherm 


Bijdragen 

We zullen het nu niet hebben over de 
betrekkelijk eenvoudige tips en pro¬ 
gramma’s zoals centreren, brede let¬ 
ters, kleur, reverse, wachtlussen en 
beeldeffekten (in de rubriek Minia¬ 
tuurtjes staan daar geregeld leuke 
voorbeelden van).In plaats daarvan 
zullen we een programma bekijken om 
grote letters te maken en een om de 
letters te laten neerdalen.We hebben 
daarvoor de gewaardeerde hulp ge¬ 
kregen van Ben van Volen (opnieuw) 
en Antoine van de Berg (eveneens een 
bekende voor Commodore-lnfo-le- 
zers als winnaar van onze eerste prijs¬ 
vraag in 1984). 

Grote letters 

Ben van Volen heeft zijn programma 
voor brede letters aangevuld met een 
versie voor grote letters. Het verdub¬ 
belt de letters ook in hoogte. 


Error, error 


In een vorig artikel (jaargang 1, no. 4) 
over schermverfraaiing schreven we 
over de POS-funktie. De vermelde 
werking hiervan blijkt echter 'wishful 
thinking’ te zijn geweest. De funktie 
leest de positie van de cursor, maar 
kan hem er niet op de beschreven 
wijze heen sturen. Jammer, maar 
waar. Ons past een deemoedig ON 
ERROR GO AND BE ASHAMED. 

De onvolkomenheid was overigens 
niet zozeer een fout, als wel het wegla¬ 
ten van een verklarend zinnetje bij Ben 
van Volen’s programma voor brede 
letters op het scherm. Daarom nu de 


correcte gebruiksaanwijzing: de bre¬ 
de letters moeten opgeroepen worden 
met twee toetsindrukken per karakter. 


Eerst gewoon "+" en dan ’geshift’. 
Oplettende lezers hebben ons hierop 
attent gemaakt. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 


LISTING programma : 1520 lister pag. 

rem ****************************** 
rem * * 

rem * 1520 lister * 

rem * * 

rem * door ben van volen * 

rem * * 

rem ****************************** 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


* 
* 
* 
* 
* 
* 

de basic-1isting moet eerst* 
weggeschreven worden op de * 

* 
* 
* 
* 
* 
* 
* 
* 
.* 
* 
* 
* 


dit programma drukt op een 
1520 p1 otter-printer z.g 
’condensed characters' af, 
d.w.zs ’vette letters’. 


volgende wijze 

open2,8,2,“ffl;1isting,u,w‘ 
(return indrukken) 
cmd2!list 
(return indrukken) 
print#2sc1ose 2 
(return indrukken) 

vervolgens kan men 1520 
lister inladen en runnen 


rem ****************************** 
print:print"stop de schijf met het 
programma" 

print"'1isting' erop in de drive," 
print"doe de printer aan, 
prinfen druk een toets” 
print!print 
getafiifa$=""then430 

open2,8,2,"1isting,u,r"iopenl5,8,15 
open4,4:openi,4,1 
get #2,Int 
i f stthen540 
print#4,Int; 

ifln*=chr$(13)orlnt=chrt(32)then460 

print#!,"r 1,0" 

print#4,1nt; 

print#l,"r 11,00" 

goto 460 

input#15,a,bt,c,d:printa;b$;c;d 

closelsclose2:clase4:closel5 


*** EINDE LISTING *** 
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Neerdalende letters 

Antoine van de Berg maakte op ons 
verzoek een programma waarbij de 
letters langzaam van boven uit het 
beeld komen zakken en op de gewen¬ 
ste plaats stoppen. Mits met rpate 
toegepast, zal ook dit 'grapje’ het pro¬ 
gramma levendig(er) kunnen maken. 

Zichzelf schrijvende 
letters 

Graag hadden wij u ook een program¬ 
ma voorgetoverd van 'zichzelf schrij¬ 
vende letters’. We komen helaas niet 
verder dan het voorleggen van onze 
ideeën hierover. De letters zouden 
(eventueel in kleuren) geleidelijk op het 
scherm moeten verschijnen, als wer¬ 
den ze geschreven. Er zou ook naar 
toepassingen van dit effekt gezocht 
moeten worden in de sfeer van het 
(ondersteunen van) schrijfonderwijs. 

Vandaar ons verlanglijstje: 

O de letters moeten zoveel mogelijk 
overeenkomen met de gangbare 
schrijfletters.De letters en cijfers 
moeten vrij oproepbaar zijn, dus 
niet alleen vaste teksten; 

0 toepassing van verschillende 
kleuren; 

0 het formaat van de letters moet 
redelijk groot zijn (veel tekst zul je 
dus niet kwijt kunnen); 

O er moet tenminste één versie bij zijn 
waarvan de schrijfbewegingen 
overeenkomen met die van de 
hand bij het schrijven. 

Al met al niet echt eenvoudig en geen 
programma dat in een handomdraai 
klaar is, lijkt ons. We zijn benieuwd. 

De lichtkrant 

Hoewel de lichtkrant al een bekend 
verschijnsel is, lijkt het ons toch leuk 
ook hier de volgende keer een voor¬ 
beeld van op te nemen. Het program¬ 
ma moet dan natuurlijke wel wat meer 
in zijn mars hebben dan de tot nu toe 
gepubliceerde. Wensen: 

O tekst moet vrij in te voeren zijn; 
©minimale tekstlengte 100 karak¬ 
ters; 

0 kleur moet vrij programmeerbaar 
zijn; 

O blijvend vaste tekst boven en/of 
beneden de lichtkrant moet even¬ 
eens vrij ingevoerd kunnen 
worden; 


0 lichtkrant en/of vaste tekst(en) zou¬ 
den eventueel in grote(re) karakters 
moeten kunnen verschijnen; 

0 klok in beeld hoeft niet, maar zou 
wel leuk zijn; 

0 geluid erbij heeft slechts beperkte 
betekenis, misschien een leuke 
aandacht-trekker telkens bij het 
langskomen van het begin van de 
tekst; 

0 moeilijker, maar misschien wel aar¬ 
dig is een diagonaal over het beeld¬ 


scherm (linksonder naar rechtsbo¬ 
ven) lopende tekst. Dit vergt wel¬ 
licht te veel van de programmeur, 
de geheugenruimte of de mogelijk¬ 
heden van de C-64. 

We zijn benieuwd of lezers de uitda¬ 
ging aannemen. Ook deeloplossingen 
kunnen een waardevolle bijdrage vor¬ 
men. Alle bruikbare en gepubliceerde 
inzendingen worden gehonoreerd. 

Kees van der Vlies • 


LISTING programma : grote letters pag. 1 

100 v = 53248:w*jl4336!U=512 + wixx=u + 504:yy 
= x x + 512 s gato200 

110 -f ort«7talstep-l t d*d/2 : b* (t) * " 00 “ 

120 i-fdOint <d> thenb* <t> =" 1 1 " s d= i n t (d) 

130 next 

140 b*(0)="11": ifd=0thenb* (0>="00" 

150 forx=0to3:d*(1)=d$(1)+bt(x)snext 

160 forx=4to7!d*<2)=d*<2)+b*<x>:next 

170 •forq = lto2i-forx = 7to0step-l :c = c+l 

180 d<q)=d(q>+val (mid*(d*(q > , c, 1> >*2tx 

190 next xsc=0:d*(q)=""snextq:return 

200 poke56334,peek(56334>and254 

210 poke1,peek<1)and251 

220 -f or aa = 0t o63;-f or bb = 0t o7st ep2 

230 d = peek(v + aa*8 + bb/2)sgosub 1 10 

240 pokew+aa*B+bb»d(l):pokew+aa#8+bb+l,d(l> 

250 pokeu + aa*8 + bb,d(2) :pokeu + aa*8+bb + l , d(2) 

260 d<1)=0:d(2)=0snextbb 

270 •forbb = 8tol5step2:d = peek <v + aa*8 + bb/2 
):gosub110 

2B0 pokexx+aa*8+bb,d(l):pokexx+aa*8+bb+ 

1, d (1 > 

290 pokeyy+aa*8+bb,d(2)spokeyy+aa*8+bb+ 

1,d(2) 

300 d(l)=0id(2>=0:nextbb:nextaa 
310 pokel,peek(l)or4 

320 poke56334,peek(56334)orl:pokev+24,31 
330 ■forbb=8tal5!pokexx + 32*8 + bb,255spoke 
xx+32*8+bb+l,255:next 
340 ■forbb = Stol5s pokeyy + 32#8 + bb, 255 s poke 
yy+32#8+bb+l,255:next 

350 print "CWITlbBeEnN vVaAnN vVoQlLeEnN.-i" 

360 print"CRVS-aan 1bBeEnNCrechts3vVaAnN 
C rechts 3 vVoOl LeEnN. -i C 1 . bl auw3 " 

*** EINDE LIST ING ### 


LISTING programma s brede letters pag. 1 

1 v=53248;w=14336iu=512+w: gotol1 

2 fort=7tolstep-l»d = d/2sb* Ct>="00" 

3 ifd<>int(d)thenb*(t)="ll":d=int(d) 

4 next 

5 b* <0> =" 1 1 " s i-f d = 0thenb* (0) = "00" 

6 forx«0to3id*(1)=d*(1)+bï(x)xnext 

7 ■forx«4to7:d*(2)=dS(2)+b*(x>:next 
B •forq=lto2!-forx=7to0step-lsc = c + l 

9 d(x)=d(x)+val (niidt (d$ (x) , c, 1) ) *2tx 

10 next x:c=0:nextq:return 

11 poke56334,peek(56334)and254 

12 poke1,peek<1)and251 

13 fora=0to512:d=peek(a+v):gosub2 

14 pokea+w,d(1):pokea+u,d(2):next 

15 pokel,peek(1)or4 

16 poke56334,peek <56334)orl:pokev + 24,31 

17 print"CWITlbBeEnN vVaflnN vVoOlLeEnN 
. 1 CneerlCl.blauw]" 

**'* EINDE LISTING *** 
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Scherinwerk (vervolg) 

Antoine v/d Berg uit Eindhoven maakte bij het voorgaande artikel een paar programma’s voor schitterende tekst, en wel op machinetaal 
niveau. Dat betekent wel wat Data-regels, maar het is de moeite waard! Ze bestaan steeds uit een Basic POKER en ze zijn eventueel 
tegelijk te gebruiken, de adressen overlappen elkaar niet. Saven van de routines in machinetaal kan met een Monitor programma. 


r 3 r &^ 


Stuurprogramma l 


SCHERMTEKST 1 


1 REM /* AANSTURING PROGRAM 1 *y 

2 REM SCHERM-TEKST */ 

3 REM 

5 XPS=43176 

6 DISPLAY=49152 

7 KLEUR=49134 

8 : 

10 A*="SCHERMTEKST DIE LOKT !"+CHR$(0) 

14 : 

15 REM /* PUT TEKST (AS) IN MEMORY */ 

20 FOR X=0 TO LEN<A$>-1 

30 POKE 49488+X,ASC(MID$(A$,X+1,1)) 

35 NEXT 

36 : 

37 GOSUB 100 :REM /* CENTREER TEKST */ 

38 POKE KLEUR,15:REM /*DEFINE COLOR 

40 SYS DISPLAY :REM /* SHOW TEKST */ 

45 END 

99 : 

100 LNGHT=LEN<A$) 

110 POKE XPS,<<40-LN6HT>/£> 

1£0 RETURN 
READY. 


8 RESTORE 
3 FOR X=0TQ336 

10 READ A 

11 P0KE49152+X ,A 

12 NEXTX 

13 END !REM /* EFD OF POKE PROGRAM */ 

14 REM 

15 REM /* DATA FOR MACH INE-CODE PROGRAM */ 

£1 DATA3E,203,13e,163,147,32,210,255,169,15,141,24,212,163,240,141,6,212 

22 DATA 169,129,141,4,212,183,8,133,253,169,0,133,255,133,243,169,24,133 

23 DATA254,169,96,133,250,163,15,32,0,193,166,255,32,245,192,169,102,164 

24 0ATA253,145,251,232,32,245,192,189,102,145,251,166,254,32,245,192,169 

25 DATA10£,164,253,145,251,202,32,£45,132,163,102,145,251,162,15,160,192 

26 DATA 138,208,253,202,208,249,185,250,141,1,212,56,233,4,133,250,166,255 

27 DATA32,245,192,169,32,164,253,145,251,232,32,245,192,169,32,145,251,134 

28 DATA255,166,254,32,245,132,169,32,145,251,202,32,245,132,169,32,145,251 
23 DATA 134,254,224,12,208,154,164,249,185,30,133,240,45,32,18,193,144,2 

30 DATA 169,32,168,253,157,224,5,169,86,133,250,230,249,162,0,134,255,169 

31 DATA24,133,254,163,123,141,4,212,230,253,202,10,208,252,169,129,141,4 

32 DATA212,76,46,192,163,0,141,4,212,141,24,212,96,162,0,133,133,251,169 

33 DATA4,133,252,165,252,157,96,3,165,251,157,64,3,24,105,40,133,251,165 

34 DATA252,105,0,133,252,232,£24,27,209,230,96,189,64,3,133,251,189,96,3 

35 DATA 133,£52,96,162,0,157,0,216,157,0,217,157,0,218,157,0,219,202,208 

36 DATA241,96,133,2,48,21,201,32,48,50,201,64,16,3,76,72,193,201,96,16,39 

37 DATA56,233,64,76,72,193,165,2,41,127,201,32,48,25,201,64,16,3,185,2,56 

38 DATA233,64,76,72,193,201,96,18,9,165,2,56,233,128,24,76,77,193,56,96 

39 DATA255,127,72 
READY. 


Dit opgloeiprogramma bestaat eigenlijk uit twee routines, namelijk voor kleur en monochroom. Met kleurflow wordt de iuiste SYS 
ScTO nr1 (rege ' 20) te d0en ' ln zwartwit da " SYS b '“ en nr2 voor het aalrtal mfleS 


Stuurprogramma 2 


SCHERMTEKST 2 


1 REM /* AANSTURING PROGRAM 3 */ 

3 REM /* SCHERM-TEKST */ 

3 REM 

5 KLEURFL0W=49664 

6 BLCKWHITE=49740 

7 NR1=49669 

8 NR2=43745 
3 : 

12 PRINT"JgEMaSSHffiïMll SOFT CONTROL PRESENTS SCHERM-TEKST " 

14 POKE 53280,0:P0KE53281,0 

15 REM /* ZWART SCHERM GEF DE BESTE EFFECTEN !! %/ 

£0 POKE NR1,4 «REM /% AANTAL MALEN DAT DE TEKST OPLICHT */ 
30 SYS KLEURFLOW sREM /* DO COLORFLOW */ 

40 END 


5 RESTORE 

6 FOR X= 0 TO 120 

7 READ A 

8 P0KE49664+X,A 

9 NEXT 

10 ENDïREM /* END OF POKE PROGRAM %/ 

11 DATA 169,8,133,£52,163,10,133,£51,193,252,48,£1,166,£52,183,42,194,32 

12 DATA58,194,162,255,160,86,136,208,253,202,208,248,76,8,194,169,8,133 

13 DATA252,198,251,208,223,96,3,7,4,2,6,4,7,1,0,11,12,15,1,15,12,11,162 

14 DATA0, 157,0,216,157,0,217,157,0,218,157,0,219,202,208,241,96,189,8,133 

15 DATA252,169,15,133,251,198,252,43,21,166,252,189,50,194,32,58,194,162 

16 DATA255,160,86,202,208,253,136,208,250,76,84,194,169,8,133,252,198,251 

17 DATA208,223,96,0,0,0 
READY. 


50 REM /* VOOR ZWART-WIT FLOW 'COLORFLOW' DOOR 'BLCKWHITE' VERVANGEN */ 
60 REM /* EN 'NR1' DOOR 'NR2 1 VERVANGEN */ 

READY. 


Deze routine maakt een eigen karakterset en vraagt daarvoor dan ook 4K van het Basic geheugen. Hiermee worden reverse karakter 
van boven naar beneden gescrolld. Voor het Basic programma geladen wordt, eerst ruimte maken door de volgende POKE’s waarmee 

de Basic Ram allocatie verandert: POKE 44,24 : POKE 46,24 : POKE 6144,0 : CLR : NEW 

Startadres is $C300, eindadres $C420. Geen paniek als de cursor verdwijnt, dit hoort zo. 


Stuurprogramma 3 


SCHERMTEKST 3 


i REM /» AANSTURING PROGRAM 3 */ 

E REM /* SCHERM-TEKST */ 

3 REM 

G SETUP=49920 

7 SCROLL=43335 

8 VRTRGNG=50119 
10 REM 

20 REM /* ZORG ERVOOR DAT HET BASIC GEHEUGEN OPGESCHOVEN 
IS ! ! */ 

30 i 

40 SYS SETUP iREM /* SCHUIF CHAR SET OP %/ 

42 POKE 53£80,0=POKE53281,0 
44 POKE VRTRGNG,130 

50 PRINT-IZÜfflMI.-, ■ 

60 PRINT-lSlIlffOFT CONTROL WAS HERESI ■ 

70 PRINT’Ëltl' -■--- 1 

80 SYS SCROLL 
READY. 


5 RESTORE 

6 FOR X=0TOH40 

7 REAO A 

8 POKE499£0+X,A 
S NEXT 

10 END!REM y*END OF POKE PROGRAM */ 

1 1 DATA 120,185,1 ,41,231,133,1 , 182,0,183,0,208,157,0,8,189,0,203,157,0,3 

12 DATA 189,0,210,157,0,10,183,0,211,157,0,11,183,0,213,157,0,13,183,0,214 

13 DATA 157,0,14,183,0,215,157,0,15,202,203,211,32,£03,135,165,1,3,4,133 

14 DATA 1 ,es, 1S3,1£8,141,145,2,163, ie, 141,24,208,36,162,0,134,£31,134,250 

15 DATA32,219, 135 ,189,7,133,252,185,250,133,251,164,252,177,253,164,251 

16 DATA 145,111 ,193,252,138,251,16,242,165,111,24,105,8,133,111,165,253,24 

17 DATA 105,8,133,253,201,216,208,216,32,193,195,230,250,165,250,201,8,208 

18 DATA202,169,7,133,251,32,198,195,198,251,208,248,32,218,195,169,6,133 

19 DATA251,169,7,133,252,164,251,177,111,200,145,111,136,136,16,247,165 

20 DATA252,201 ,7 ,208,5,200,169,0,145,111,165,111,24,105,8,133,111,201,216 

21 DATA£08,££3,32,133,135,138,£52,16,£16,36,162,151,160,255,136,203,253 

22 DATA202,208,250,96,169,0,170,157,8,12,£32,£08,250,36,163,8,133,254,163 

23 DATA0, 133,253,169,12,133,112,188,0,133,111,98,0,0,32,0 0 
READY. 
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De grote zomertentoonstelling voor consumenteneleketronica, de CES in Chicago, is 
altijd een ideale plaats om de ontwikkelingen in de VS in ogenschouw te nemen. In de 
zomer worden daar de spullen aan de handel getoond, die in de decemberperiode in de 
winkels komen. 


De laatste jaren was er altijd een 
belangrijk deel van die Consumer 
Electronics Show toebedeeld aan 
de computers, maar dat bleek dit 
jaar wat minder geworden. Er is 
duidelijk een malaise in de hobby- 
computermarkt in de VS aan de 
gang en dat weerspiegeld zich dan 
in het aantal exposanten. Eigenlijk 
is het allemaal Commodore, wat de 
klok in Amerika slaat, een beetje 
Atari en machines als de IBM PC jr., 
de Timex (Sinclairs) en zelfs de Ap¬ 
ple II blijken wat betreft de hobby- 
computers niet meer interessant 
genoeg, als we kijken naar het soft- 
wareaanbod. Ook MSX is in Ameri¬ 
ka nog niet van de grond gekomen. 

Op zo’n beurs hoef je natuurlijk niet te 
zoeken naar Nederlandse software, al 
was AACKOSOFT wel met een fraaie 
stand aanwezig. Dat bedrijf, erg actief 
met export bezig, trok met een paar 
interessante produkten wel de aan¬ 
dacht, en we hopen dat de multima- 
chine en multiplayer actiespelen als 
”JET-FIGHTER", die daar voor MSX 
getoond werden, ook in een Commo¬ 
dore versie uitkomen. Aackosoft was 
al eerder op de CES en we hopen, dat 
men met de produkten, die kwalitatief 
de laatste tijd wel vooruitgegaan zijn, 
ook in Amerika veel succes zal 
hebben. 

De meeste software op de CES is voor 
de Amerikaanse markt, en zal uitein¬ 
delijk ook Europa wel bereiken, maar 


dat duurt nog enige maanden. Toch is 
het leuk om nu al iets te vermelden 
over de hits van dit najaar. Nou ja, hits. 
als je de leveranciers mag geloven zijn 
alle programma’s absolute toppers en 
dat kan natuurlijk niet. 

Commodore 

Op de stand van Commodore op de 
CES waren natuurlijk vooral de 128’s 
zeer prominent aanwezig. Er was veel 
software voor, er werd CP/M gede¬ 
monstreerd, de f28 werd echt als de 
opvolger van de 64 naar voren ge¬ 
bracht. Er was ook de 128D, met inge¬ 
bouwde diskdrive van het 1571 type 
en die machine is eigenlijk het meest 
interessant voor onze markt en komt 
ook in Europa beschikbaar. 

Op de CES werden ook de PC 10 en 
PC 20 en de 900 serie UNIX (Coherent) 
supermicro’s getoond. 

Op periferiegebied was er de 1572 
dubbele diskdrive met een totale ca¬ 
paciteit van 820 KB, met 340 KB gefor¬ 
matteerd per schijf in de 128 mode. 
Ook op printergebied was er een 
nieuwtje met de MPS1000 printer, een 
dot matrix eenheid met max. 100 te¬ 
kens/sec, maar ook een NLQ (Near 
Letter Quality) mode van 16 t/s en 
graphics mode met 50 tot 240 dots/ 
inch. 

Op een persconferentie onderstreep¬ 
te Marshall Smith, de president van 
CBM, dat nog eens. Hij verwachtte 
nog dit jaar 1 miljoen C-128’s te verko- 


Marshall Smith 

pen. Dat werd mede gebaseerd op 
onderzoek onder 64 bezitters, waar¬ 
van 15% aangaf een 128 te willen 
kopen. Dat alleen al betekent onge¬ 
veer een half miljoen machines. Ook 
de voorverkopen, en ook in Nederland 
zijn bv. MCN, Computerworld en Caf- 
ka al actief met dergelijke aanbiedin¬ 
gen, loopt erg goed en beloopt al een 
paar honderdduizend machines. Posi¬ 
tief nieuws, en dat was ook wel nodig 
na een toch bepaald slecht jaar voor 
Commodore. Niet te zien op de CES, 
maar wel nagenoeg gereed is de Ami- 
ga, die met superbe ikoon/muis grap¬ 
hics, met 256 KB RAM, 3 1/2 inch 
microfloppies, hele geavanceerde ge- 
luids en video-chips en gebaseerd op 
de 32 bits Motorola 68000 chip familie, 
de microwereld nog zal verbazen. Vol¬ 
gens veel deskundigen wordt dit de 
Apple-killer bij uitstek. 

Nut 

De belangrijkste vraag, de ondertoon 
die de hele hobbycomputermarkt be¬ 
zighoudt, was in Chicago natuurlijk of 
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men er in zal slagen nieuwe zinvolle 
toepassingen voor de huiscomputer 
te brengen. De grote groep gebruikers 
blijkt het opstapje naar de serieuze 
toepassingen als boekhouding en 
tekstverwerking niet te maken. Ze 
hebben wel een tekstpakket en data¬ 
base, maar echt actief aan het schrij¬ 
ven (op)slaan is gewoon niet populair 
bij de meerderheid van de kopers. Dan 
blijft dus programmeren, recreatieve 
(spel) en educatieve software over. 
Langzamerhand weten de hardware- 
leveranciers ook wel, dat zij aan het 
brengen van nieuwe toepassingen 
niet zoveel meer kunnen doen. Ze 
kunnen meer geheugen inbouwen, be¬ 
tere graphics en een muis toevoegen, 
maar de software moet het doen. Ze 
kijken dan ook angstvallig naar de 
softwarehuizen voor nieuwe, interes¬ 
sante programma’s. En die komen er 
ook wel. Met de print/graphics pro¬ 
gramma’s als Printshop en Newsroom 
is een hele nieuwe koers ingeslagen 
en met de zelfmaak-boeken zoals de 
Playwriter serie van Woodbury kun¬ 
nen kinderen iets tastbaars maken. 
Dat is de grote trend van 1985, soft¬ 
ware die ’TANGIBLE is, die tastbare 
resulaten oplevert. 

Software 

In Amerika zijn op dit moment de 
diverse Flight Simulators, Karateka en 
Bruce Lee vechtspelen, een aantal ad- 
ventures zoals Zork, Printshop, Music 
Shop en Dazzle Draw van Broderbund 
en natuurlijk Ghostbusters het meest 
populair. Een paar nieuwe program¬ 
ma’s, die ons opvielen bij onze rond¬ 
gang over de show waren nieuwe ac¬ 
tiespelen van Epyx, waarbij natuurlijk 
WINTER GAMES en de EIDOLON en 
KORONI’s RIFT, en een nieuwe ad- 
venture van Infocom, met de titel 
WISHBRINGER. Nogal wat film/soft¬ 
ware combinaties werden getoond, 
zoals A View to a Kill naar de nieuwste 


James Bond, een programma dat ove¬ 
rigens al bij MCN in ons land te koop is 
(ƒ 49,-). Steven Spielberg’s nieuwste 
film THE GOONIES heeft een compu- 
terneefje, terwijl maker Datasoft daar¬ 
van met ALTERNATE REALITY ook 
een zeer kunstige beeldadventure uit¬ 
bracht, waar u meer van zult horen. 
Animatie ofwel het maken van bewe¬ 
gende figuren kan met Broderbunds 
FANTAVISION (op de Apple II), maar 
we vonden zelf voor kinderen Activisi- 
on’s FIREWORKS, om zelf een vuur¬ 
werk te maken, nog leuker. Ook THE 
LUESHER PROFILE van Mindscape 
werkt met bewegende objecten. Van 
Mindscape is ook RACTER, een soort 
computertaalkunstprogramma, waar¬ 
bij een dialoog met de computer in de 
ELIZA traditie wordt opgebouwd en 
tot een soort literatuur kan leiden. 

The Fourth Protocol 

Literatuur per computer, het klinkt als 
een paradox, maar de ontwikkeling 
van de "Adventures” gaat in snel tem¬ 
po die richting uit. De Britse topschrij¬ 
ver Frederick Forsyth heeft (met hulp 
van de uitgever Hutchinsons) zijn laat¬ 
ste bestseller 'The Fourth Protocol” 
omgetoverd in een even spannend en 
zeer vernuftig computerspel. The 
Fourth Protocol is een spannende 
internationale spionagethriller, vol met 
geheime agenten, bommen, MI5, Nato 
en veel actie. Het computerspel is 
helemaal gelijk aan het boek, het be¬ 
staat uit drie opeenvolgende delen, 
die alleen maar toegankelijk zin met 
behulp van een verborgen codewoord 
uit het voorgaande deel. Vooral het 
eerste deel, een avontuur met nu eens 
geen tekst, maar ikoonbesturing, is 
buitengewoon origineel en razend 
knap uitgevoerd. Wanneer je alle drie 
delen achter de rug hebt, blijft de 
laatste en moeilijkste opdracht over: 
het onschadelijk maken van een 
atoombom binnen dertig seconden. 


De sleutel voor het de-activeren van 
de bom zit in een onbeduidend lijkend 
stukje informatie ergens eerder in het 
spel. 

Gelukkig is dit Fourth Protocol spel 
niet helemaal identiek aan de plot van 
het boek, het zou anders veel te mak¬ 
kelijk zijn voor de miljoenen lezers die 
het boek inmiddels verslonden heb¬ 
ben. Het spel is in de U.K. met groot 
enthousiasme ontvangen, binnen de 
kortste keren waren er 50.000 van 
verkocht. Omdat men ook op de wat 
oudere computergebruiker mikt komt 
er na de versie voor de C-64 en de 
Spectrum waarschijnlijk binnenkort 
ook een versie voor de IBM PC en de 
Apple II op de markt. 

In Engeland kost The Fourth Protocol 
bij 13 pond, en het is voorlopig dus 
alleen interessant voor wie de engelse 
taal goed machtig is. 

Sideways 

Voor wie last heeft met uitgebreide 
databases met veel velden, grote 
spreadsheets (Rekenmatrices) of 
boekhoudingen, die niet gewoon op 
zijn printer passen, is er nu een oplos¬ 
sing. Met Sideways kan men namelijk 
de hele zaak dwars uitprinten. De be¬ 
perking van 40,80 of 132 kolommen in 
de breedte is daarmee opgeheven. Bij 
computers als de Apple en de PC’s is 
dit pakket al erg populair, we gebrui¬ 
ken het zelf voor veel dingen en op de 
64 en 128 zal het zeker zijn nut bewij¬ 
zen. Zeker door de keuze van letterty¬ 
pes (men kan namelijk kiezen veel 
groottes en soorten letters) kan men 
hiermee met zijn matrixprinter (want 
dat die blijft is onontbeerlijk) de fraai¬ 
ste resultaten ontfutselen. Het pakket 
komt van Timeworks (USA 312- 
9489200) en kost in de VS 30 dollar. 
Een van de pakketten, waarmee Side¬ 
ways zonder problemen werkt, is 
Swiftcalc van Sideways. 



UITBREIDINGSMODULEN VOOR UW 
COMMODORE 64 

Simon Vestdijk Erf 177, 3315 CW Dordrecht Telefoon 078-210181 


Produkten zijn ook in BELGIE verkrijgbaar: 

Informeer bij: CONNECTION N.V. - Tabakvest 120 - 2000 ANTWERPEN - TEL. 03-233.21.71 
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Gebruikersgroepen 


VCGN (070-971851) zit iedere laatste zaterdag van de 
maand in het Lodewijk Makeblijde lyceum in Rijswijk. 
Inlichtingen over de vele afdelingen: 

Zeeland 01180-25746 West-Brabant 01640-51639 
Midden-Brabant 01620-55634 Oost-Brabant 04120- 
42054 Zuid-Limburg 043-476935 Zuid-Holland 010- 
501023 


PET Benelux heeft bijeenkomsten in Zeist (Ie 
zaterdag),Nijmegen (2e zaterdag) en Haaksbergen (3e 
zaterdag). (Inl.05759-2211). 


HCC Compet gebruikersgr. 03404-59599. 


HOT NEWS uit Amsterdam in de Meervaart op de 2e 
zaterdag van de maand en ook in Zwolle (038-548459): 
Midden Nederland (03453- 1375) en Deventer (05700- 
50758). 


WZW uit Belgie, met afdelingen in Antwerpen, Limburg, 
West- Vlaanderen inl. Bindstr. 19, te Berchem 
Antwerpen. 


In Arnhem zit ook een Commodore-club, waar men 
clubavonden op dinsdag iedere twee weken organiseert 
en ook cursussen geeft. Inl. Talingsingel 32 te Velp, tel. 
085-647782. 



Syntax checksum. 

helaas zijn er bij de plaatsing van dit handige programma in 
C-info 5 van deze jaargang een paar storende foutjes 
geslopen. De checksum van de checksum kwam niet 
overeen met het programma. 

De gepubliceerde Basic listing is korrekt. De checksumge- 
tallen wijken af. Regel 95 bestaat niet in deze versie, dus die 
kan vergeten worden. Verder luiden de checksumgetallen 
voor regels 240,250 en 260 als volgt: 114,89,68. Sorry voor 
dit ongemak. Als je de juistheid van dit bericht zelf kunt 
testen, ben je er zeker van dat jouw checksumprogramma 
werkt. 

VIC Circuit 

In regel 425 op pagina 26 van nr. 5 ontbrak de verwijzing 
achter GOTO, het moest GOTO 600 zijn. 

In het artikel over het zelf aanpassen van een TV gingen we 
ervan uit, dat een aantal delen van de TV geaard zouden 
zijn. Dat is soms niet het geval, er kan een fase van de 
wisselstroom op dat chassis staan en dan is de hele 
operatie wat gevaarlijker. Meet vooraf eerst even uit, of er 
nergens spanning op staat. 


pgljeS 

ABONNEMENTEN 
OUDE NUMMERS 



Abonnementen kosten ƒ 55,- en voor een vol 
jaar Commodore-lnfo (10 a 11 nummers) is het 
verreweg het gemakkelijkste, wanneer u dat 
bedrag aan ons overmaakt op giro 1585491 tnv. 
SAC Blaricum of op onze bank in België BBL 
nr. 310050602562 

OUDE NUMMERS 

Reeds verschenen nummers zijn na te bestellen. 
Maar, helaas, NIET per brief, kaart of telefonisch. 
We leveren die oude nummers alleen bij 
vooruitbetaling op onze giro 1585491. Jammer 
voor degenen, die ons al vroegen om toezending, 
maar helaas is dat administratief niet te 
verwezenlijken, extra girokaarten maken en sturen 
zou echt te veel kosten. De prijs is ƒ 6,75 per 
nummer (dus aangeven welk nummer). 


Speciale service voor C-1 6 bezitters 


Uitbreidings-unit 

voor de C-16 

Via onze Infolist service hebben we speciaal voor 
onze lezers contact gelegd met een Engelse leveran¬ 
cier van uitbreidingsmodules voor de C-1 6, waarmee 
de geheugencapaciteit tot 64 KB is uit te breiden. 

ARTIC MCT 64K 

RAM BOARD 

Deze uitbreiding moet achterin de C-1 6 worden inge¬ 
bouwd (met montagevoorschrift)en laat dus de car- 
tridge sleuf vrij voor andere software. Alle C-ló 
software blijft bruikbaar, maar ook de Plus/4 software 
kan nu gebruikt worden. Er is met de MCT 64K maar 
liefst 48 KB vrij in de High-Res mode (normaal 2 KB) en 
een enorme 60.5 KB vrij RAM voor Basic programma s. 


Prijs ƒ 275,- 

incl.BTW en verzendkosten 


Te bestellen door overmaken van dit bedrag op 
giro 31 57656 tnv. Infolist Arkel met vermelding 
ARTIC. Inl. 01831-2904 
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De belofte van toegang tot het grote reservoir van GP/M software is verleidelijk. 
Diskdrive-incompatibiliteit maakt het allemaal wat minder aantrekkelijk maar er is een 
methode om CP/M programma’s toch in de 64 te krijgen. W. Maessen (080-787031) 
geeft een programma om CP/M-programma’s te „importeren”. 


CP/M OP DE -- 

COMMODORE-64 



CP/M: Control Program for 
Microcomputers 
In deel 1 van deze serie, no. 2, jrg. 2, 
gingen we globaal in op het hoe en 
waarom van CP/M op de COMMO¬ 
DORE-64. In dit deel wordt een pro¬ 
gramma gegeven, waarmee het 
mogelijk is, CP/M programma’s van 
andere CP/M-computers binnen te 
halen. 

Commodore zelf lijkt de steun voor de 
CP/M module op de 64 te hebben 
opgegeven, hij wordt tenminste niet 
meer geleverd, zegt men. Maar goed, 
wie er een heeft of te pakken kan 
krijgen heeft hier met de komende 
CP/M golf voor de 128 vast iets aan. 
We gaan ook in op een aantal pro¬ 
gramma’s die voor CP/M beschikbaar 
zijn en (indien bekend) bekijken we of 
het importeren hiervan veel proble¬ 
men oplevert. 

Programmatuur voor 
CP/M-64 

Zoals eerder opgemerkt, is er voor CP/ 
M-64 nog geen software op de markt. 
Dit klinkt enigszins tegenstrijdig ten 


opzichte van het verhaal over de grote 
standaardisatie die CP/M met zich 
mee zou brengen. Wat is het geval? 

Alle CP/M-software zou inderdaad 
rechtstreeks op de CBM-64 kunnen 
draaien, ware het niet dat de manier 
waarop CP/M-64 zijn disks format, 
totaal afwijkt van de manier waarop 
andere CP/M-machines dit klusje kla¬ 
ren. Een diskette van bijvoorbeeld Ap- 
ple(-CP/M) is voor de CBM-64 een 
raadsel: Bad Track or Sector. Hetzelf¬ 
de geldt voor alle andere CP/M-ma¬ 
chines. En Commodore zelf zal mis¬ 
schien, heel misschien, met een schijf¬ 
je komen. Wanneer, kunnen ze niet 
zeggen. Blijft eigenlijk nog 1 manier 
over: CP/M-programma’s binnenha¬ 


len via de gebruikerspoort vanuit een 
andere machine. 

Hoe? 

Zoals al eerder opgemerkt, is het mo¬ 
gelijk de user-port aan te spreken mits 
men eigen driver- routines schrijft. De 
eenvoudigste manier is om de 6510 
het grootste gedeelte van de kommu- 
nikatie te laten doen: via een 6510- 
assemblerprogramma wordt het hele 
beschikbare geheugen (plm. 35 K) vol¬ 
geschreven met dat wat via de user- 
port binnenkomt, we schakelen over 
naar de Z80, deze leest het geheugen 
uit en zet het op disk. Dit is veruit de 
eenvoudigste manier: het vergt geen 
speciaal programma op de zendende 
machine want PIP ptp: = prog. naam 


GEHEUGENINDELING COMMODORE 64 ONDER CP/M 
Z80 

Z-80 adres 

6510 adres 

Funktie (bovengrens) 

$EFFF 

$FFFF 

6510 kernal 

$E000 

$F000 

6510 l/O 

$D000 

$E000 

Vrije ram of CP/M 48K 

$C000 

$D000 

BIOS80 

$AFFF 

$BFFF 

BDOS 

$AA00 

$BB0Q 

CCP 

$9C06 

$AC06 

TPA 

$9400 

$0100 

$A400 \ 
$1100 / 

Zero page Z80 

$0000 

$1000 

Eigen 6510 programma, BIOS call 8 

$FF00 

$QF00 

Eigen 6510 programma, BIOS call 7 

IFE00 

SOEOO 

BIOS65 

$FA00 

$0A00 

Data uitwisseling Z80- 6510 

IF900 

$F800 

$0900 
$0800 1 

Disk l/O buffer 

$F000 

$0000 ƒ 

Zero page 6510 
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voldoet. Nadeel is alleen, dat eventue¬ 
le transmissiefouten niet opgespoord 
kunnen worden. Beter is dan om met 
de zendende machine een protokol af 
te spreken, bijvoorbeeld: zend 128 
bytes van het programma, bereken 
een 1 byte checksum en stuur deze 
over, de 64 berekent ook de check¬ 
sum en stuurt een ACK of NACK naar¬ 
gelang Ehij dezelfde waarde van de 
checksum vindt als welke doorge¬ 
stuurd is, de 64 schakelt de Z80 in om 
naar schijf te schrijven indien het goed 
was of hij ontvangt dezelfde 128 bytes 
opnieuw. Enzovoorts. De bijgaande 
programma’s gebruiken de eerste 
methode. Programma’s volgens de 
tweede methode zijn in ontwikkeling 
maar vereisen het bezit van een twee¬ 
de (CP/M-) computer. 

Het binnenhalen van 
CPM-programma’s 

De hierbij afgedrukte programma’s, 
de een in 6510-assembler, de ander in 
8080-kode, zijn samen in staat CP/M- 
programma’s tot een maximale lengte 
van plm. 35 K in de Commodore-64 te 
laden. Er wordt geen protokol gehand- 
haaft om eventuele transmissiefouten 
op te sporen. Daartegenover staat het 
voordeel dat er ook Egeen programma 
voor de zendende komputer geschre¬ 
ven hoeft te worden. Wat betreft de 
hardware: voor de CBM-64 is alleen 
een RS- 232 interface benodigd om de 
kommunikatie met de zendende kom¬ 
puter tot stand te kunnen brengen. Dit 
interface is voor plm. f. 100,- bij V&D 
verkrijgbaar. Het is ook mogelijk om 
het interface zelf te bouwen met be¬ 
hulp van de twee standaard RS- 232 
driver chips MCI 488 en MCI 489 en 
een 7404 inverter. Voor het installeren 
van de programma’s gaan we als 
volgt te werk. Begin met het Z80 
programma (programma 1). Voer het 
in via ED, assembleer en load. De 
uiteindelijke COM-file die daarvan het 
resultaat is moet daarna aangevuld 
worden met het 6510-programma. 
Voor het implementeren van het 6510- 
programma is een machinetaal-moni- 
tor zoals Micromon een eerste ver¬ 
eiste. Via deze monitor kan program¬ 
ma 2 (in 6510- assembler) vanaf adres 
0E00 hex in het geheugen gezet wor¬ 
den. Is dit karwei geklaard, dan ver¬ 
plaatsen we de routine naar het RAM- 
gebied vanaf C000 tot C200 hex. Dit 


F I L T R A N 

»*#*****»*;m*** ************* 

W. riaessen 1984 
Program to download programs 
fr om other CP/M-machines 
into the CBM-é>4 in CP/M-mode 

***************************** 


0100 = 

tpa 

equ 

0005 = 

bdos 

equ 

0080 = 

dmaddr 

equ 

005C = 

fcb 

equ 

0000 = 

boot 

equ 

000d = 

cr 

equ 

0@0a = 

1 + 

equ 

0100 

9 

org 

0100 312+05 

5 

lxi 

0103 c3a604 


imp 


5 

; screen 

handling 

0106 0e09 

9 

print; 

mvi 

0108 cd0500 


cal 1 

010b c9 


ret 

010C 0602 

5 

outchr: 

mvi 

010e cd0500 


cal 1 

0111 c9 


ret 

0112 0e01 

ï 

getchrs 

mvi 

0114 cd0500 


cal 1 

0117 c9 


ret 

0118 e5 

5 

adprt: 

push 

0119 cd0601 


cal 1 

011c el 


pop 

01 ld 7c 


mov 

011e e6f0 


ani 

0120 0f 


rrc 

0121 0f 


rrc 

0122 0f 


rrc 

0123 0f 


rrc 

0124 cd3e01 


cal 1 

0127 7c 


mov 

0128 e60f 


ani 

012a cd3e01 


cal 1 

012d 7d 


mov 

012e e6+0 


ani 

0130 0f 


rrc 

0131 0f 


rrc 

0132 0f 


rrc 

0133 0f 


rrc 

0134 cd3e01 


cal 1 

0137 7d 


mov 

0138 e60-f 


an i 

013a cd3e01 


cal 1 

013d c9 


ret 


i 

; convert 

decimal 

013e e5 

5 

conv: 

push 

613f f e0a 


cpi 

0141 da4901 


j c 

0144 c637 


adi 

014+i c34b01 


imp 

0149 c630 

dgt: 

ad i 

014b 5+ 

P! 

mov 

014c cdöcOl 


cal 1 

014f el 


pap 

0150 c9 


ret 


01O0h ; start address program 

0@05h 
0080h 
005th 
00001 } 

0dh 

0ah 

tpa 

sp, stacli 
start 

routines 

c,? 

bdos 


c,2 

bdos 


C) 1 
bdos 


h 

print 

h 

a,h ; üigit 1 

0f0h ; strip ls nybble 

; rotate right 4 times 


conv 

a,h ; digit 2 

0-fh 

conv 

a,l ! digit 3 

0f 0h 


conv 

a,1 ; digit 4 

0fh 

conv 


to ascii and print 
h 

0ah ; digit? 

dgt ; yes, jump 

37h 
P 

’ 0 ’ 
e,a 

outchr 

h 


68 






; clear keybd-buffer 


@151 

3e@@ 

kbdclrj 

mvi 

a, @ 

@153 

32c6f0 


sta 

0-f 0c6h 

@156 

c9 


ret 



check file-name 


@157 

116403 

filchk: 


lxl 

d,noname 

5 

till with noname-message 

@15a 

3a5d00 



lda 

tcb + 1 



@15d 

te2@ 



cpi 

1 - 

5 

is tirst byte of name space 

015f 

ca08O5 



iz 

done 

S 

yes, stop program 

0162 

118503 



lxi 

d,badnam 

5 

search tor ? in name 

0165 

215C00 



lx i 

h, f cb 



@168 

3e3f 



mvi 

a, ’?’ 



016a 

0610 



mvi 

b, 16 



016c 

be 

» 

qloop: 


cmp 

m 



016d 

ca@8@5 



j z 

done 

5 

yes, stop program 

0170 

23 



i n >! 

h 



@171 

@5 



der 

b 



0172 

c26c01 



inz 

qloop 



@175 

c9 



ret 


> 

filename ok, continue 

0176 

118000 

> 

•f ilsav 


lxi 

d,dmaddr 

i 

set output buffer tor dis 

0179 

cd3402 



cal 1 

setdma 



017c 

11e@@2 



lxi 

d,ti1sv 



017f 

CÖ0601 



cal 1 

print 





5 

; open 

t i le 




0182 

115C00 

5 


lxi 

d, tcb 

> 

delete old file 

@185 

cd3a02 



cal 1 

delete 



0188 

115C00 



lxi 

d, tcb 

5 

open new file 

018b 

cd4002 



cal 1 

make 



018e 

1la703 



lxi 

d, nodir 



0191 

3c 



inr 

a 



@192 

ca0805 



iz 

done 



0195 

118000 



lxi 

d,dmaddr 



@198 

cd3402 



cal 1 

setdma 



@19b 

115003 

i 


lx i 

d,opnok 



019e 

cd@601 



cal 1 

print 





* 

; compute 

# ot 128- 

-byte blocks 



ceg. 

de 

contains 

top ot butter 



; reg. 

hl 

contains 

bottom address 

01al 

2aac@2 

! 


1 hl d 

bottom 



0ia4 

110dO3 



lxi 

d,stad 



@la7 

cdl8@l 



cal 1 

adprt 



@laa 

2a05t@ 



1 hl d 

0f @05h 



@lad 

0600 



mvi 

b, 0 

! 

add $62 (y-reg index) 

@1 at 

3a62f0 



lda 

Ot062h 



@lb2 

4t 



mov 

c,a 



01b3 

@9 



dad 

b 



01b4 

7 c 



mov 

a, h 

! 

correct for 651@ 

01b5 

de 10 



sbi 

10h 



01b7 

67 



mov 

h, a 



01b8 

1 lta02 



lxi 

d,endad 



@lbb 

cd 1801 



cal 1 

adprt 

S 

print end address 

@ibe 

23 



inx 

h 

? 

set eof mark 

@lbt 

3e la 



mvi 

a, lah 



01c 1 

77 



mov 

m, a 



01c2 

2b 



dcx 

h 



01c3 

7c 



mov 

a, h 



@lc4 

te92 



cpi 

92h 

j 

over $9200 = $a200 6510 ? 

0ic6 

dactei 



ic 

nxt3 

! 

no, ok 

@lc9 

22a8@2 



shl d 

top 

5 

keep old top address 

01 cc 

210092 



lxi 

h,920@h 

> 

set temp. top address 

@lcf 

eb 

n:<t3: 


xchg 




01d0 

2aac02 



1 h 1 d 

bottom 

f 

load start address 

01d3 

7b 

nxtl: 


mov 

a, e 

J 

divide by 128 shifting 


RAM-gebied wordt, indien CP/M in de 
44 K-versie loopt, niet door CP/M 
beïnvloed. Nadat het programma ver¬ 
plaatst is (vergeet niet het eerst op 
disk te saven), wordt CP/M geladen. 
Laad via DDT de COM-file in het ge¬ 
heugen van de Commodore. Indien 
alles goed is gegaan met het invoeren 
van het Z80-programma moet het 
6510 gedeelte naar Z80-adres 0531 
hex getransporteerd worden. Dit kan 
met het DDT kommando: MB000, 
B200, 531 (Move trom B000 to 
B200 to position 0531). Geef een con- 
trol-C (Stop-toets) en geef na het boot¬ 
en het kommando SAVE 8 
FILTRN.COM. 

Gebruik 

Het programma is nu klaar en kan als 
volgt gebruikt worden. 

O Geef onder CP/M het kommando 
’FILTRN file.ext’, waarbij Efile.ext de 
naam is waaronder het te ontvangen 
programma of bestand op disk gesa¬ 
ved moet worden 

0 Op het scherm verschijnt: 110 OR 
300 BAUD (1/3) ? Geef 1 als de over¬ 
dracht met 110 BAUD moet plaatsvin¬ 
den, 3 indien dit met 300 BAUD dient 
te gaan. Het gebruik van hogere baud- 
rates heeft in verband met de traag¬ 
heid van de 64 geen zin, hij kan het niet 
volgen. 

0 Het programma komt dan in een 
interaktieve modus. Er wordt een ter¬ 
minal gesimuleerd. Dit is handig indien 
een file overgehaald wordt van een 
groot multi-user main-frame of mini. Er 
kan dan vanuit de 64 een kommando 
gegeven worden om de file, die over¬ 
gehaald moet worden te LISTEN o.i.d. 
Geef geen RETURN, dat doet het file¬ 
transfer programma zelf. 

0 Indien we zover zijn dat we de file 
gaan ontvangen drukken we de ’4’- 
toets in. Op het scherm verschijnt: 
STARTING FILETRANSFER - . Vanaf 
dit moment moeten de data van de 
andere machine binnen gaan komen. 
Wordt gewerkt met een andere mikro, 
dan kan daar het kommando: PIP 
PTP:= file.ext gegeven worden. Dit 
kommando stuurt de data uit de file 
naar de kommunikatie- poort. Deze 
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01d4 

95 


sub 

1 

; the difference begin-end 

01d5 

4-f 


mov 

c,a 


01d6 

7a 


mov 

a, d 


01d7 

?c 


sbb 

h 


01d8 

47 


mov 

b, a • 


@ld9 

a7 


aria 

a 

; clear carry 

91da 

79 


mov 

a,c 

; 16-bits shift 

01db 

17 


ral 


; multiply by 2 

eidc 

73 


mov 

a, b 

; load acc with hi-byte of 
difference 

eidd 

17 


ral 


; shift left 

01de 

c601 


adi 

1 

; add one to round 

01e6 

4-f 


mov 

c,a 

; c contains # of 128-byte 
records 

Olel 

6f 


mov 

1 ,a 


01e2 

2600 


mvi 

h, 0 


01e4 

c5 


push 

b 


01e5 

112003 


lxi 

d,blks 


01e8 

cd 1801 


cal 1 

adprt 

; print # of blks used 

CU eb 

cl 


pop 

b 


01ec 

2aac02 


1 hl d 

bottom 


dief 

118000 

agnl: 

lxi 

d,dmaddr 

start black moving 

01-f 2 

0680 


mvi 

b, 128 


01f 4 

7e 

agn2: 

mov 

a, m 

; start loop 128 

0H5 

12 


stax 

d 


01-FÓ 

9^ 


inx 

h 


01f 7 

13 


inx 

d 


01f 8 

05 


der 

b 


@lf 9 

c2f401 


j nz 

agn2 

j last byte of block ? 

Olfc 

c5 


push 

b 


Clfd 

d5 


push 

d 


01-f e 

e5 


push 

h 


01-f-F 

cd4602 


cal 1 

wr ite 

; write to disk 

0202 

1lcb03 


lxi 

d, d-f ul 1 

; check if disk full 

0205 

b7 


ora 

a 

; then a<>0 

0206 

c40805 


enz 

done 


0209 

el 


pop 

h 


020a 

dl 


pop 

d 


020b 

cl 


pop 

b 


020c 

0d 


der 

c 


020d 

c2ef01 


inz 

agnl 


0210 

3aa902 


lda 

top + 1 


0213 

f e00 


epi 

0 


0215 

ca2702 


iz 

endsav 

; last byte read 

0218 

2aa802 


1 hl d 

top 

; go save $b000-$c000 

021b 

eb 


xchg 



021c 

2100b0 


lxi 

h, 0b000h 

reset start-pointer 

02 lf 

3e00 


mvi 

a, 0 

; reset hi-byte top 

0221 

32a902 


sta 

top+1 


0224 

c3d301 


imp 

nxtl 


@227 

115c00 

endsav: 

lx i 

d, -fcb 


022a 

cd4f02 


cal 1 

close 


022d 

lldd03 


lxi 

d,memsav 


0230 

cd0601 


call 

print 


0233 

c9 


ret 





5 

; bdos 

cal 1 s 



0234 

0e la 

5 

setdma: 

mvi 

c, 26 


0236 

cd05O0 


call 

bdos 


0239 

c9 


ret 



023a 

0e 13 

5 

delete: 

mvi 

C) 19 


023c 

cd05O0 


call 

bdos 


023f 

c9 


ret 



0240 

0e 16 

ï 

make: 

mvi 

c,22 


Ö242 

cd05O0 


cal 1 

bdos 


0245 

c9 


ret 



0246 

115c00 

5 

write: 

lxi 

d, f cb 


0249 

0el5 


mvi 

c,21 


024b 

cd0500 


cal 1 

bdos 


024e 

c9 


ret 




data worden in het 64-geheugen op 
geslagen en tegelijkertijd op het 
scherm geechood. Indien men ziet dat 
het eind van de file bereikt is drukt men 
op de ’ | ’-toets. Het programma geeft 
op het scherm de begin- en eind 
adressen van het programma in het 
geheugen en begint de file naar schijf 
te schrijven. 

0 Indien dit gebeurd is komt het pro¬ 
gramma weer in de interaktieve mo¬ 
dus. De gebruiker krijgt dan de Ekans 
op een eventueel main-frame uit te 
loggen. Met de STOP- toets kan het 
programma dan beëindigd worden. 
Het programma is in staat 8 -bits 
kodes (dus ook machinetaal) te ont¬ 
vangen, mits op de zendende machine 
de kommunikatie ook op 8-bits gedefi - 
nieërd is. Verdere instellingen van de 
kommunikatie zijn: 110 of 300 BAUD, 
3-line, no-parity, full duplex, 2 stop 
bits. 

Software 

Het aantal programma’s dat voor 
CP/M op de markt is, is fenomenaal. 
Voor de meest uiteenlopende toepas¬ 
singen zijn wel programma’s geschre 
ven en daarom is het ook ondoenlijk ze 
hier allemaal te beschrijven. 

In de loop van de tijd zijn er echter een 
aantal van deze programma’s stan¬ 
daard geworden. Een paar hiervan 
heb ik via de boven beschreven me¬ 
thode in de Commodore binnenge¬ 
haald. En wie schetst mijn verbazing, 
toen de meeste elk van deze program 
ma’s, en dat zonder aanpassingen, 
meteen bleken te werken. Welke wa¬ 
ren dat? 

MBASIC 

In de eerste plaats MBASIC. Indien 
vergeleken met Commodore-Basic 
(ook Microsoft) is dit een gigant. Heeft 
CBM-Basic een 70-tal kommando’s of 
keywords, bij MBASIC zijn dat er meer 
dan 130! Hierbij vinden we dan aller 
hande mogelijkheden van gestruktu- 
reerde statements zoals IF.... 
THEN....ELSE en WHILE...WEND, edit 
funkties zoals AUTO, RENUM en 
DELETE, disk- funkties (NAME old- 
name AS newname, FILES (directory), 
CHAIN (om Basic-programma’s aan 
elkaar te koppelen) en kommando’s 
om fouten op te sporen, c.q, op te 
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024f 

0e 10 

close: 


mvi 

c, 16 

0251 

cdO500 



cal 1 

bdos 

0254 

c9 



ret 




> 

j communication 

related cal Is 

0255 

11ld04 

f 

comm: 


1 x i 

d,stcom 

0258 

cd060i 



cal 1 

print 

025b 

cd5101 



cal 1 

kbdclr 

025e 

3e0B 



mvi 

a,8 

0260 

3200f9 



sta 

0f90@h 

0263 

3e01 



mvi 

a,l 

0265 

3200ce 



sta 

0ce00h 

0268 

00 



nop 


0269 

cd5101 



cal 1 

kbdclr 

026c 

c9 



ret 


026d 

3e07 

1 

filet: 


mvi 

a,7 

026f 

3200f9 



sta 

0f90Oh 

0272 

cd5101 



call 

kbdclr 

0275 

3e01 



mvi 

a, 1 

0277 

3200ce 



sta 

0ce0Oh 

027a 

00 



nop 


027b 'cd5101 



cal 1 

kbdclr 

027e 

c9 



ret 


027f 

113303 

bdset: 


Ixi 

d,baud 

0282 

cd0601 



cal 1 

print 

0285 

cd 1201 



cal 1 

getchr 

0288 

f e31 



cpi 

’ 1’ 

028a 

ca9d02 



iz 

bl 

028d 

f e33 



cpi 

’ 3’ 

028f 

c27f02 



jnz 

bdset 

0292 

3e80 



mvi 

a,080h 

0294 

32a0ff 



sta 

OffaOh 

0297 

3e©6 



mvi 

a, 06h 

0299 

32alff 



sta 

0ffalh 

029c 

c9 



ret 


039d 

3e80 

bl: . 


mvi 

a, 080h 

029f 

32a0ff 



sta 

OffaOh 

02a2 

3e83 



mvi 

a,083h 

02a4 

32alff 



sta 

©ffalh 

02a7 

c9 

? 


ret 




5 

$ ***** start of 

program **** 



! temp 

storage area 

02a8 

00000000 

i 

top 

dw 

0,0 


02ac 

00000000 

bottom 

dw 

0,0 



02b0 0d0a535441stfile 
02c c 555345205e 
02eO 0d0a535441filsv 
02fa 0d@a454e44endad 
030d 0d0a535441stad 
032O 0d0a232O31blks 
0333 0d0a31313Obaud 
0350 0d0a5b2O46opnok 
0364 0dOa3f2046naname 
0385 0d0a3f2041badnam 
03a7 0d0a5b2O4enodir 
03cb 0d0a5b2044dful1 
03dd 0d0a5b2046memsav 
03f0 0c9d0a2046hdr 
0409 0d0a202042 
04ld 0c0d0a2053stcom 
043-f 555345205-f 
0460 52554e2f53 
0483 0dOa0a5b20endprg 


**** text **#* 

db cr, lf,' starting filetransfer ->’,cr,lf 

db ’use t-key to end’ ,cr, lf, lf, 

db cr,lf, 'start saving file....’,cr,lf, 

db cr,lf,’end address : S’ 

db cr,lf,’start address : S’ 

db cr,lf,’# 128-blks : *’ 

db cr,lf,’110 or 3O0 baud (1/3) ? : *’ 

db cr,lf,’C file opened 3',cr,lf, 

db cr,lf,’? filename must be specified’,cr,1f,’$’ 

db cr,lf,’? ambiguous files not allowed’,cr,lf,’4’ 

db cr,lf,’t nadirectory space avai 1 able 1 ’, cr, 1 f, ’ 4’ 

db cr,lf,’C disk full 3’,cr,lf,’4’ 

db cr,lf,’C file saved 3’,cr,lf, 

db 0ch,.cr, lf, ’ file transfer program’ 

db cr,lf,’ by w. maessen’,cr,1f,’ 

db 0ch,cr,lf,’ start of Communications now:',cr,lf 

db ’use key to start filetransfer’,cr,1f 

db ’run/stop key to cancel program ’,cr,lf,1f,’ 

db cr,lf,lf,’[ endofprogra m3’,cr,lf,’$’ 


vangen (TRON, TROFF, ON ERROR 
GOTO). 

MBASIC doet hierdoor veel professio¬ 
neler aan dan Commodore’s eigen 
BASIC-versies en nogmaals: het 
werkte meteen! 

FORTRAN 

Dat laatste geldt ook voor het gehele 
pakket programma’s dat behoort bij 
FORTRAN-80 (F80). Met deze FOR¬ 
TRAN komen ook een aantal program¬ 
ma’s binnen bereik, die de Commodo¬ 
re onder CP/M gelijke mogelijkheden 
geven als wat men van grote, professi¬ 
onele computers kent. Dat is M80, een 
makro-assembler die in staat is zoge¬ 
naamde ’relocatable files’ te produce¬ 
ren, stukjes programmakode waarvan 
de absolute adressen nog niet inge¬ 
vuld zijn, waardoor het mogelijk is hele 
subroutine-bibliotheken op te bou¬ 
wen. Via LIB80, een ander programma 
in het pakket, is het mogelijk deze 
subroutine-bibliotheken te onderhou¬ 
den. L80 is een ’linker’, die hoofdpro¬ 
gramma’s en subroutines aan elkaar 
hangt en daarvan 1 programma 
maakt. Samen met FORTRAN biedt 
dit pakket bijna onbegrensde facilitei¬ 
ten om programma’s te maken, deels 
bestaande uit een hogere program¬ 
meertaal, deels uit een zeer krachtige 
assembler. 

Wordstar 

Een ander typisch CP/M programma 
geeft meer problemen: Wordstar. Dit 
tekstverwerkingspakket is bedoeld 
voor een 80-koloms scherm en dat 
heeft mijn 64 nu eenmaal niet. Een 80- 
tekenskaart kan hier uitkomst bren¬ 
gen. Bovendien schijnt het mogelijk te 
zijn Wordstar zo te wijzigen, dat hij ook 
40 koloms aankan. Hoe, dat is me nog 
niet bekend. 

Compilers 

Naast het bovengenoemde FOR¬ 
TRAN, bestaan er ook een groot aantal 
andere compilers onder CP/M. Dat 
zijn onder andere PASCAL, PLV1, BA- 
SCOM (Basic-compiler), COBOL en, 
niet te vergeten, de tegenwoordig erg 
populaire taal C. Deze laatste compi¬ 
ler is zelfs in C geschreven! 

De meeste van deze compilers gene¬ 
reren code, die relocatable is en die 
daardoor makkelijk aan te vullen is 
met machine-kode subroutines. 
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©4a6 

11f 003 

start: 

lx i 

d, hdr 


04a9 

cd060i 


cal 1 

print 




! 

; check 

given -filename 


04ac 

cd5701 


cal 1 

■f i 1 chk 




5 

; move 

6510~code 

to $0eO0~$0f-f-f 

04af 

213105 

5 

1 x i 

h,beg65 


Ö4b2 

1100-fe 


1 x i 

d, 0-t eÖOh 


04b5 

7e 

nxt2s 

mov 

a, m 


04b6 

12 


stax 

ri 


04b 7 

23 


inx 

h 


04b8 

13 


inx 

d 


04b9 

7a 


mov 

a, d 


04b a 

f e©0 


cpi 

0 


04bc 

c2b504 


j nz 

nxt2 


04b-f 

cd7f02 

S 

cal 1 

bdset 


04c2 

213105 


lx i 

h,beg65 


04c 5 

7d 


mov 

a, 1 


04c6 

f e80 


cp i 

BOh 


04c 8 

dad404 


j c 

lt80 

j lo-byte < 80h 

04cb 

2eO0 


mvi 

1,0 


04cd 

7c 


mov 

a, h 


04ce 

c601 


adi 

l’ 


04d0 

67 


mov 

h, a 


04d 1 

c3d604 


imp 

stset 


04d4 

2e80 

1 t80s 

mvi 

1,80h 


04d6 

22ac02 

stsets 

shld 

bottom 

; keep address 

04d9 

7c 


mov 

a, h 


04 da 

c610 


adi 

10h 

; correct tor 6510 

04dc 

323cfe 


sta 

0-f e3ch 

;hi-byte start 

04df 

7d 


mov 

a, 1 


04e0 

3238-fe 


sta 

0-f e38h 

i1o-byte 

04e3 

cd5502 


cal 1 

comm 


04e6 

3afffe 

5 

wkloop; 

1 da 

©feffh 


04e9 

f e©0 


cpi 

0 


04eb 

ca0505 


jz 

stopit 



perform f iletransf er 


04ee 

1 lb002 

5 

lxi 

d,stfile 


04f 1 

cdO601 


cal 1 

print 


04f 4 

cd6d02 


cal 1 

filet 




» 

j End, 

save data 



04t7 

cd7601 

5 

cal 1 

filsav 




9 

; Possibility to 

lagof f 


04f a 

3e00 

? 

mvi 

a, 0 


04f c 

32fffe 


sta 

0f ef f h 


04-ff 

cd5502 


cal 1 

comm 


0502 

c3e604 


.imp 

wkloop 


0505 

118304 

i 

stopit: 


lxi 

d,endprg 

0508 

cd0601 

done: 


cal 1 

print 



; error 

ex it 



050b 

el 


pop 

h 

; remove return address 






from stack 

050C 

C30000 


imp 

boot 


050f 



ds 

32 

; local stack area 

052-f 

= 

stack 

equ 

* 


0531 

= 

beq65 

equ 

$+2 


052-f 



end 




Programma !: ISO programma, Voer dit in via de Eü-editor onder CP/M, 

assembleer en rood. 


0eO0 

4c 

30 

Oe 

ad 

aO 

Of 

Bd 

94 

0e08 

02 

ad 

al 

0f 

8d 

93 

02 

a9 

0e 10 

02 

aO 

02 

a2 

93 

2© 

bd 

ff 

0el8 

a9 

80 

a2 

02 

a© 

ff 

2© 

ba 

0e20 

ff 

20 

C0 

ff 

a9 

a3 

85 

f8 

0e28 

a9 

a2 

85 

fa 

6© 

ea 

ea 

ea 

Oe30 

20 

03 

0e 

aO 

00 

84 

62 

a9 

0e38 

80 

85 

05 

a9 

15 

85 

©6 

a2 

0e 40 

80 

20 

c9 

ff 

a9 

Od 

20 

d2 

0e48 

ff 

a2 

8© 

2© 

c6 

ff 

20 

e4 

0e50 

ff 

85 

8b 

ad 

97 

©2 

85 

8c 

0e58 

20 

b0 

0f 

f0 

35 

a5 

Bc 

c9 

Oe60 

00 

dO 

e6 

a2 

03 

86 

9a 

a5 

0e68 

8b 

ea 

a4 

62 

91 

05 

20 

d2 

0e70 

ff 

cB 

84 

62 

C0 

ff 

d0 

dl 

0e78 

e6 

06 

a© 

00 

84 

62 

a5 

06 

0e8O 

c9 

al 

dO 

Oa 

a9 

C0 

85 

06 

0e88 

dO 

bf 

ea 

ea 

ea 

ea 

c9 

d0 

0e90 

d0 

b7 

a9 

80 

20 

c3 

ff 

a9 

0e98 

00 

85 

c6 

85 

99 

a9 

03 

85 

Oea0 

9a 

a9 

ff 

85 

91 

60 

ea 

ea 

0ea8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

OebO 

8a 

c9 

41 

90 

06 

c9 

5b 

b0 

0eb8 

03 

69 

2© 

6© 

c9 

61 

9© 

©6 

0ecO 

c9 

7c 

bO 

03 

e9 

20 

60 

c9 

0ec8 

7f 

90 

fb 

e9 

5f 

4c 

bl 

0e 

Oed0 

8a 

c9 

41 

90 

06 

c9 

5b 

bO 

0ed8 

03 

69 

8© 

6© 

c9 

61 

9© 

©6 

Oee0 

c9 

7c 

b© 

03 

e9 

lf 

6© 

c9 

0ee8 

7f 

90 

©2 

e9 

5f 

4c 

dl 

©e 

0ef 0 

a9 

ff 

8d 

ff 

Oe 

4c 

92 

Oe 

Oef 8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

00 

0f 00 

20 

03 

Oe 

20 

el 

ff 

dO 

03 

0f08 

4c 

92 

©e 

a2 

00 

86 

99 

2© 

Of 10 

e4 

ff 

f0 

16 

85 

6a 

c9 

5f 

et 18 

dO 

03 

4c 

f0 

©e 

a2 

80 

2© 

0f20 

c9 

ff 

a6 

6a 

20 

b© 

©e 

2© 

0f 28 

d2 

ff 

a2 

8© 

2© 

c6 

ff 

20 

: 0f30 

e4 

ff 

aa 

20 

dO 

0e 

85 

6a 

: 0f 38 

a2 

03 

86 

9a 

2© 

55 

0f 

a5 

: 0f40 

6a 

f© 

C0 

a9 

20 

26 

d2 

ff 

: 0f 48 

a9 

14 

2© 

d2 

ff 

a5 

6a 

2© 

: 0f 50 

d2 

ff 

4c 

©3 

0f 

a5 

a2 

c9 

: Of 58 

15 

10 

01 

6© 

a© 

00 

84 

a2 

: 0f6O 

a4 

6b 

f0 

0C 

a0 

00 

84 

6b 

: 0f 68 

a9 

2© 

20 

d2 

ff 

18 

9© 

13 

: 0f70 

a0 

ff 

84 

6b 

a9 

12 

20 

d2 

: Of 78 

ff 

a9 

2© 

2© 

d2 

ff 

a9 

92 

: 0f 80 

20 

d2 

ff 

a9 

9d 

2© 

d2 

ff 

: 0f 88 

60 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

; ei90 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

: ©f 98 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

: 0faO 

80 

06 

ea 

ea 

ea 

ea 

ea 

ea 

: 0fa8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

: 0fb0 

a2 

00 

86 

99 

20 

e4 

ff 

85 

: 0fb8 

07 

a2 

03 

86 

9a 

2© 

d2 

ff 

: 0fc0 

a5 

07 

c9 

5e 

6© 

ea 

ea 

ea 


Programma 2: Voer in via MICPQMON 


Tot zover een beschrijving van de voor 
CP/M beschikbare programmatuur. 
CP/M wordt voor Commodore- 
liefhebbers steeds interessanter. De 
pas aangekondigde C-128 heeft na¬ 
melijk ook een CP/M- modus waarbij 
de Z80-processor op 4 MHz draait. Dit 
in tegenstelling tot die op de CBM-64 
die, omdat de VIC-chip niet sneller 
kan, het op een snelheid van 1 Mega- 
hertz moet doen. • 
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Vragenrubriek. 

Vragen staat vrij! 

Door Jan Bodzinga 



De vakantie is al bijna voorbij, de 
zon schijnt toch nog af en toe na 
een slecht begin van de zomer, en 
de stapel vragen over de Commo¬ 
dores wordt maar weinig lager. 
Voor ons dus weer veel werk, maar 
laat dat geen reden zijn om je vraag 
niet aan ons voor te leggen. 

De spelregels zijn simpel, stuur je vra¬ 
gen op aan de redaktie, en zet in de 
linkerbovenhoek ’Vragenrubriek/ Jan 
Bodzinga’. Wij doen ons best om voor 
alle problemen een oplossing te ver¬ 
schaffen, als het niet in C-info is, dan 
wel langs een andere weg. Van proble¬ 
men die inmiddels in z’n algemeen¬ 
heid in ons blad zijn behandeld nemen 
we aan, dat die geen aparte oplossing 
meer nodig hebben. 

C-16 geheugenuitbreiding. 

John Hendriks uit Amsterdam vraagt of 
er inmiddels geheugenuitbreidingen te 
krijgen zijn, die kunnen worden aange¬ 
sloten op de uitbreidingspoort van z’n 
C-16. Hij heeft daarover gelezen in ’Van 
start met de C-16’ maar kan ze nergens 
bemachtigen. 

Zoals inmiddels wel algemeen bekend 
zal zijn, heeft Commodore een scheve 
schaats gereden met het uitbrengen 
van de PLUS/4 en C-16 computers. 
Men had gerekend op een enorm suc¬ 
ces, maar de apparaten zijn niet aan¬ 
geslagen, met het gevolg, dat er een 
grote verliespost op het Commodore- 
conto verscheen, maar ook, dat de 
kopers van deze apparaten in feite in 
de kou kwamen te staan. 

Want Commodore, noch andere be¬ 
drijven, zijn van zins om veel ontwikke¬ 
lingen te doen voor een verliesgeven¬ 
de markt. We kregen laatst wel wat 


software en bv. Logo is er ook wel voor 
de Plus/4, maar juist niet (ons bericht 
daarover was te voorbarig) voor de C- 
16. Dat betekent dus in de praktijk, dat 
je weinig of niets zult kunnen krijgen 
voor de C-16 computers, maar een 
paar zaken hebben daar iets voor. Dit 
geldt dus ook voor de geheugenuit- 
breiding. 

’t Is spijtig genoeg, maar wij doen ons 
best en hebben ondertussen contact 
opgenomen met een paar Engelse le¬ 
veranciers van geheugenuitbreidin¬ 
gen en zullen daarover berichten. Bij 
voldoende belangstelling kunnen we 
eventueel via Infolist wat importeren 
voor deze minderheidsgroep. 

Checksum tips. 

Er zijn nogal wat lezers, die problemen 
hebben met het programma SYNTAX 
CHECKSUM. Na intypen en kontrole 
blijkt het toch niet te werken. De heer 
Van De Heuvel uit Utrecht meldt daar¬ 
over: 

Urenlang heb ik zitten kontroleren maar 
de checksum bleef alle diensten weige¬ 
ren. Totdat ik ontdekte, dat de check¬ 
sum, zowel als de snellader die ik ge¬ 
bruik, worden aangeroepen met dezelf¬ 
de SYS-opdracht. Dat bleek uiteindelijk 
de oplossing. Snellader weg, check¬ 
sum erin, en het loopt als een trein. 

Een goede tip, die niet alleen geldt 
voor het checksum programma maar 
van toepassing is op alle software die 
op dezelfde geheugenplaatsen ope¬ 
reert. Bij het debuggen van dit soort 
geheimzinnige fouten moet je altijd 
uitgaan van een kale computer, zon¬ 
der alle aangehangen toeters en bel¬ 
len als Toolkits, printerdrijvers en wat 
dan niet meer. Blijkt de fout dan nog 


op te treden, dan weet je zeker dat het 
aan de software ligt. 

Tape gebruik. 

P. Weedage uit Breda wil graag bepaal¬ 
de listings die bedoeld zijn voor gebruik 
met disk veranderen, zodat hij er met 
een cassetterecorder mee kan werken. 


In het algemeen is het mogelijk, en 
zelfs vrij simpel om een Basic pro¬ 
gramma om te zetten van disk naar 
tape gebruik of omgekeerd. Om dit te 
doen, moeten in de eerste plaats alle 
OPEN commando’s uit zo’n program¬ 
ma worden opgezocht. Daarin moet 
het devicenummer worden aange¬ 
past. Dat is de tweede parameter uit 
dit commando. Staat er b.v. OPEN 
2,8,3,”filenaam,seq,read”, dan is dit 
een opdracht voor de diskdrive (devi- 
ce 8). Wil je dit aanpassen voor tape 
(device 1), dan moet het devicenum¬ 
mer een 1 worden. Verder is het bij 
cassette-gebruik van belang of er 
wordt gelezen of geschreven, en daar¬ 
voor wordt het secundary adres -S.A.- 
(in het voorbeeld 3) gebruikt. Bij disk- 
gebruik heeft dit adres weinig beteke¬ 
nis. Voor lezen van tape is dit S.A een 
0 , bij schrijven wordt dit een 1 (soms 
een 2). Dit S.A. bepaalt dus de status 
van de recorder. Daarom kan de toe¬ 
voeging achter de filenaam (seq,write) 
ook uit de listing worden verwijderd. 
Bij het omzetten van tape naar disk, 
moet deze juist worden toegevoegd. 
(seq,read / of seq,write). 

Ons voorbeeld komt er dus zo uit te 
zien.: 

OPEN 2,1,0, "filenaam” 

Helaas hoef je over het aanpassen 
voor cassettegebruik niet te denken 
als er in het programma gebruik wordt 
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gemaakt van zg. RELative files. De 
tape kent alleen programma en se- 
quential files. 

Device nummers. 

In aansluiting hierop een vraag van Piet 
Grootjans uit Groningen. Hij wil graag 
iets meer weten over de diverse appa¬ 
raten en hun devicenummers. 

In de vorige vraag is (hoop ik) al het 
nodige duidelijk gemaakt, maar voor 
de volledigheid hier een overzicht van 
wat randapparaten en hun device¬ 
nummers etc. 

Tape lezen : dev = 1 SA = 0 
Tape schrijven : dev = 1 SA = 1 (write 
file+EOF = end of file) 

Tape schrijven : dev = 1 SA = 2 (idem 
+ EOT = end of tape) 

Toetsenbord : dev = 0 SA = onbelang 
Scherm : dev = SA onbel. 

Printer : dev = 4 SA vele (funktie 
afh.van printer) 

Modem : dev = 2 SA diverse (zie 
Prog.guide) 

Disk : dev = 8 SA = 0/1 Directory 
lezen / schrijven. 

Disk : dev = 8 SA = 15 Foutkanaal. 
Disk : dev = 8 SA 3 to 14 of 16 tot 128 
Dit zijn de belangrijkste mogelijkheden 
van randapparaten en hun device¬ 
nummers. Aan de hand hiervan is het 
mogelijk om b.v. gegevens voor de 
disk bestemd door eenvoudigweg het 
devicenummer te veranderen op het 
scherm of de printer te laten ver¬ 
schijnen. 

Saven van Machinetaal. 

J.B. Kroon uit Breukelen zoekt naar een 
mogelijkheid om z’n eigen MT-pro- 
gramma ’s via snellaad weg te schrijven 
naar tape of disk. 

Het wegschrijven van machinetaal is 
minder eenvoudig dan het saven van¬ 


uit Basic. De meeste snelladers zijn 
hierop niet aangepast, alhoewel er een 
turbotool bestaat die dit wel kan. De 
save en laad routine voor machinetaal 
is nl. een andere dan de normale routi¬ 
ne, waardoor snelladers het laten af¬ 
weten. Een mogelijkheid is de machi- 
necode eerst om te zetten naar Basic- 
data (zie listing DATA-MAKER) of met 
hulp van een MT-monitorte reloceren 
naar het Basic-gedeelte van de com¬ 
puter. 

Als laatste (en beste) kun je nog probe¬ 
ren om de adressen in de nul-pagina 
waar de start ($(2B)= 43/44) en het 
eind ($(2D)= 45/46) van een Basic- 
programma worden opgeslagen, te 
veranderen in de begin en eind 
adressen van jouw stuk machinetaal, 
waarna je simpelweg de speedlader/ 
saver z’n werk laat doen. De computer 
denkt dan dat er gewoon met een 
Basic-programma wordt gewerkt. 

Printer besturingskodes. 

N.J.Staal uit Coevorden heeft een Juki 
printer aangesloten op een Vic. Dat 
werkt prima, maar in de handleiding 
van de printer staan allerlei mogelijkhe¬ 
den die zijn aan te sturen met hulp van 
besturingskodes. Zijn vraag: Hoe doe 
ik dat. 

Het gebruiken van de vele mogelijkhe¬ 
den die de moderne printers bieden is 
min of meer gestandaardiseerd (ge¬ 
lukkig), zodat na verloop van tijd de 
software niet meer printer afhankelijk 
hoeft te zijn. Om een printerfunktie aan 
te sturen, moet er een serie karakter- 
kodes naar de printer worden ge¬ 
stuurd. Deze series bestaan uit 1 of 
meer karakters, die echter altijd begin¬ 
nen met een escape-karakter. Daarna 
komt de rest van de serie, die de 
feitelijke funktie bepalen. 

De printerhandboeken geven meestal 
een lijst van besturingskodes, waarbij 


-omwille van de algemeenheid- i.p.v. 
CHR$(x), symbolen worden gebruikt. 
Zo is code 7 b.v. omschreven als BEL 
en code 27 heet ESC (escape). Deze 
code moet je vertalen naar de ASCII- 
waarde van de Commodore-compu- 
ters. Een tabel daarvan vind je in het 
handboek (p.135). De symbolen staan 
daar echter niet bij, vandaar een paar 
van de meest gebruikte : 

0=NUL, 7=BEL, US=31, RS=30, 
ESC=27, GS=29, SO=14, Sl = 15. 

In de meeste printerhandleidingen 
staat de volledige tabel afgedrukt. Wil 
je via Basic nu de printer activeren met 
de besturingskode ’ESC + US + 9’ 
dan doe je dat met het commando: 

OPEN 4,4 : PRINT 4,CHR$(27); 
CHR$(31);CHR$(9) : CLO SE 4 

Hopelijk kun je aan de hand van dit 
voorbeeld de rest zelf invullen. 

Pokenummer s. 

D. J. v. d. Vaart uit Vlaardingen vraagt om 
publikatie van een aantal POKE num¬ 
mers die geheimen voor hem herber¬ 
gen. Hij begrijpt soms niet waarom er 
moet worden gepoked. 

De C-64, en ook de VIC hebben een 
simpele Basic-interpreter, waardoor 
bij die computers via Basic van veel 
mogelijkheden geen gebruik kan wor¬ 
den gemaakt. Omdat dingen als Hires 
en sprites wel degelijk zijn ingebouwd 
is er in feite maar 1 manier, om ze te 
benaderen en dat is machinetaal. 

Via Basic kan dit worden gesimuleerd 
door het gebruik van POKE instruc¬ 
ties, die niet meer doen, dan een ge- 
heugenlokatie voorzien van een ande¬ 
re waarde. 

Het gaat te ver om op deze plaats alle 
mogelijke adressen te gaan bespre¬ 
ken, -we hebben al eens een aantal 
handige pokes gepubliceerd-, maar 
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het zal nuttig zijn te weten, dat de 
computer adressen doorgaans wor¬ 
den opgegeven in hexadicimale getal¬ 
len (een getal met een $ ervoor) terwijl 
Basic alleen decimale getallen accep¬ 
teert. 

Om dus een goed gebruik van POKE 
te kunnen maken, moetje de hexade- 
cimalen omrekenen. 

Interface Writenow. 

... ... 

G.H.Nieuwveen uit Worm er krijgt z’n 
ROM tekstverwerker niet gekoppeld 
met de Micro Plus printer, die opzich- 
zelf uitstekend werkt met Basic pro¬ 
gramma’s. 


Alle software, die ontwikkeld is voor 
de C-64, heeft beperkingen op het 
gebied van de printerinterfacing. Het 
is nog altijd ondoenlijk om voor iedere 
printer een passende routine in de 
software te verwerken. Dat komt niet 
zozeer door de printers, als wel door 
de vreemde gedragingen van het 
team, dat de Commodore machines 
heeft ontwikkeld. 

WriteNow is in principe geschikt voor 
meerder printers, maar niet voor meer¬ 
dere interfaces. In dit geval kunt je 
alleen proberen of de kombinatie wel 
tot stand kan worden gebracht door 
een aander interface te gebruiken, 
waarbij in plaats van de gebruikers- 
poort de seriele (disk/printer) plug 
wordt gebruikt. 

De C-16. 

LG.de Haas uit Delft zoekt serieuze 
software voorde C-16, o.a. Basicode2, 
en heeft tevens problemen met de 
tekstverwerker uit Van Start met Basic 
3.5'. 

1 , : 11 lilt lil Si * SS ilit! i i I lllll ifi 

Zoals ik al vaker heb geschreven, voor 
de C-16 bestaat bijna geen software, 
laat staan serieuze software. Ook de 


ontwikkeling van toepassingen voor 
deze machine staat nagenoeg stil. 

De toepassingen die door u worden 
gezocht zult u dus zelf moeten ontwik¬ 
kelen, of misschien zijn er lezers, die 
voor u en ons nuttige programma’s 
hebben gemaakt, en ze voor plaatsing 
toesturen ? Datzelfde geldt voor de 
Basicode. 

In het programma Tekstverwerker uit 
bovengenoemd C-16 boek, ook uitge¬ 
geven door SAC en het enige Neder¬ 
landstalige boek over de C- 16 en 
PLUS/4, dat we kennen, zitten inder¬ 
daad wat storende foutjes en aange¬ 
zien ik mede dat programma heb ge¬ 
maakt, weet ik gelukkig ook welke. In 
regej 400 wordt met ’CSR TERUG’ de 
cursortoets met de pijl naar links be¬ 
doeld. In 420 staat GOTO 450, dit 
moet worden GOTO 390. Regel 650 
wordt : PRINT# 

8 ,D$(I), regel 860 wordt : GET # 
8 ,D$(TE): IF ST <> 0 THEN SI =1 en 
als laatste 

875 : PRINT #4,D$(TE);:TE=TE+1. 
Nadat deze (druk)fouten zijn verbe¬ 
terd, loopt dit programma zoals het 
hoort. 

VIC-software naar C-64. 

H.v.d.Merwe uit Roosendaal is een 
beetje boos op ons, omdat we ook wel 
eens leuke programma’s publiceren, 
die niet geschikt zijn voor de C-64, 
maar voor andere Commodore machi¬ 
nes. Hij stelt voor om bij deze software 
te vermelden hoe het ook geschikt is te 
maken voor de C-64. 

We kunnen deze vraag kennelijk niet 
vaak genoeg voor het voetlicht bren¬ 
gen, want er blijken altijd weer mensen 
te zijn, die hierdoor in de problemen 
raken. Het is nu eenmaal zo, dat de 
computers van Commodore tot nu toe 
geen van alle compatibel zijn. Als het 
aanpassen van een listing een simpele 


zaak is, dan kan in feite iedere gebrui¬ 
ker zondermeer de listing veranderen. 
Worden er echter veel PEEK, POKE en 
SYS opdrachten in verwerkt, dan is dit 
een bijna ondoenlijke zaak geworden. 
Als de heer v.d. Merwe zich hiervoor 
zou willen aanbieden, dan zijn wij de 
de eersten om z’n aanpassingen in C- 
info te plaatsen. 

1541 Drive. 

Peter Brand uit Oudleusden vraagt zich 
af, of het verstandig is een 1541 disk¬ 
drive aan te schaffen, want hij heeft van 
alle kanten nogal wat kritiek op dit 
apparaat gehoord. 

Peter, als je werkelijk een diskdrive 
nodig hebt, dan is er maar een oplos¬ 
sing, de 1541. En die zijn de laatste tijd 
van een goede kwaliteit. 

Het is inderdaad zo, dat de oudere 
modellen nogal uiteen liepen wat be¬ 
treft DOS-.ersies en er traden ook de 
nodige hitteproblemen op. Maar, zo¬ 
ver ik weet, behoort dat allemaal tot 
het verleden, al zijn ook de nieuwe 
1541-drives aan slijtage onderhevig. 
In principe is het een redelijke aan¬ 
koop. 

Basic in EPROM. 

R.Hoo uit Rotterdam bezit sinds kort 
een EPROM-programmer, maar weet 
eigenlijk niet hoe hij Machinetaal en 
Basic in een EPROM moet zetten, en 
daarna ook nog gebruiken. 

Een EPROM-programmer is een nuttig 
apparaat, maar je moet wel weten wat 
je er wel en niet mee kunt bereiken. 
Basic-programmatuur in Eprom is een 
ondoenlijke zaak, omdat de C-64 er 
van uitgaat, dat Basic begint op een 
adres in RAM, en als je daar een 
EPROM neerzet, dan kun je vervol¬ 
gens niets anders meer met de com- 



UITBREIDINGSMODULEN VOOR UW 
COMMODORE 64 

Simon Vestdijk Erf 177, 3315 CW Dordrecht Telefoon 078-210181 


OOK VOOR ONTWIKKELING EN ASSEMBLAGE 
VAN ELEKTRONISCHE APPARATUUR. 


78 



















puter doen, sterker nog, bij het opstar¬ 
ten krijg je al problemen. 

Machinetaal in EPROM is een goede 
mogelijkheid, maar je moet dan wel 
een MT-relocator inbouwen, die er¬ 
voor zorgt, dat de MT naar de juiste 
geheugenadressen wordt weggezet, 
vanuit de EPROM, die in de expan- 
siepoort zit. Ook dit is niet zo simpel te 


doen, zeker niet als je weinig weet van 
machinetaal. Ik adviseer je dan ook 
om je zo snel mogelijk te werpen op 
het programmeren in MT, dan kom je 
vanzelf op het punt, dat je de EPROM- 
programmer nuttig kunt gaan ge¬ 
bruiken. 

Jan Bodzinga. • 


128 Software 

Het is nog wat vroeg om nu al uitge- 
breid over de 128 software te gaan 
schrijven, maar toch noemen we al 
een aantal pakketten om aan te ge¬ 
ven, dat er aan gewerkt wordt. Be¬ 
halve de 64 software, die zonder 
problemen op de 128 draait, komt er 
ook speciale software voor de zgn. 
128 mode met 80 kolommen op het 
beeldscherm, dus ideaal voor zake¬ 
lijke toepassingen. 

Zo is er de "PERFECT” serie met een 
aantal zakelijke pakketten en het inte¬ 
grale pakket JANE 2 van Arktronics 
met Janewrite, Janelist en Janecalc. 
Commodore zelf komt met Micro-ll- 
lustrator, Typing Professor en ”A 
Comprehensive course in Basic”. 

Van Timeworks (444 Lake Cook Road, 
Deerfield III. 60015 USA) kregen we 
ook een interessant trio door, dat per 
stuk 70 dollar gaat kosten en onder¬ 
ling data-compatibel is: 

Wordwriter 128 

Een tekstprogramma met ingebouw¬ 
de spellingschecker van 85000 woor¬ 
den en voor snel rekenwerk een calcu- 
latorfunctie. Alle gebruikelijke functies 
van een modern tekstpakket zijn aan¬ 
wezig. 

Data manager 128 
Opslag en oproepen van informatie 
met dit database-pakket is uiterst een¬ 
voudig. Ook het maken van rapporten 
en uitdraaien van bestanden, afdruk¬ 
ken van stickers, het gaat met functies 
als X- sort, X-search en X-chart erg 
eenvoudig. 

Swiftcalc 128 

Een rekenmatrix voor huis- en klein 
zakelijk gebruik. 

Van Siërra is er het spel GATO voor de 
128. Batteries Included heeft een 128 
versie van THE CONSULTANT. • 
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En Toen Deed Ie Het Niet 
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^ Wie wel eens problemen 
heeft met een onwillige printer, 
heeft misschien iets aan onder¬ 
staande tip. 

Je besluit op een gegeven moment 
om een printertje aan te schaffen, of 
krijgt er eentje voor je verjaardag. Zo’n 
eenvoudig 40-koioms apparaat. Vol 
goede moed sluit je hem aan op de 64 
...en dan .... doet ie het niet. Niet uit 
het veld geslagen ga je wat experi¬ 
menteren. Je vraagt de STATUS op en 
dan blijkt al snel dat die zegt: time out’ 
of'device not present’. 

Een dergelijk probleem kent u mis¬ 
schien ook, je zit dan meteen in de 
zoekbooom. Stapje voor stapje fout- 
zoeken dus maar. 

Je ontkoppelt (eerst de 64 uitzetten) je 
cassette recorder en wonder boven 
wonder: hij doet het. Nu zit je pas echt 
in de problemen, omdat je je cassette 
recorder nodig hebt om je program¬ 
ma’s te laden en omdat je na het laden 
niet ongestraft de stekker van je recor¬ 
der eruit kan trekken. Goede raad is 
duur. Je belt met je dealer, met Com¬ 
modore support en anderen. Niemand 
weet je te zeggen wat te doen, behal¬ 
ve: het zal wel aan de 64 liggen. Stuur 
hem maar op voor reparatie. Nou het 
lag niet aan de 64. Bovenstaand pro¬ 
bleem heb ik als volgt opgelost. 


Oplossing; 

Open de cassette-recorder (4 schroef¬ 
jes aan de onderkant losdraaien met 
een mini kruiskopschroevendraaier). 
Je ziet dan een kabelboom. Op het 
punt waar de kabelboom zich vertakt 
in een veelvoud van snoertjes zoek je 
de write-line. (Deze is verbonden met 
pin E-5 - zie handboek.) Indien je de 
stekker van de recorder even open¬ 
maakt kun je zien welke kleur dat 
draadje heeft. Dit snoertje knip je zo 
door dat je aan beide kanten ruimte 
genoeg hebt om beide einden te ver¬ 
lengen. Nadat je beide einden hebt 
verlengd moet je tussen de andere 
einden van de verlengsnoertjes een 
mini-schakelaartje solderen. De beste 
plaats voor dit schakelaartje is ca. 1 
cm. onder het woordje "save” aan de 
bovenkant van je recorder. Hij zit dan 
niets in de weg. Sluit hem zo aan dat 
de cassette-recorder ”aan” is als het 
hefboompje van de schakelaar naar je 
toe wijst, dus naar de voorzijde van de 
recorder. Snoertjes netjes isoleren, 
bedrading van de snoertjes zo leiden 
dat deze niets in de weg kunnen zitten, 
recorder dichtschroeven en klaar is 
Kees. 

Zodra je wilt laden, dan zorg je dat de 
schakelaar "aan” staat en wil je printen 
dan kun je ongestraft de recorder uit¬ 
schakelen met de schakelaar. Succes! 

P.Cremer, Utrecht • 



OF THE REST 


Computopost "order” levert alles voor uw homecomputer. 


software, boeken, printers, 
modems, div. kabels, stofkappen, 
diskettes, eprom programmers, 
enz. enz. 


Bel voor catalogus of stuur een kaartje 
o.v.v. computermerk. 

Prijzen incl. BTW, excl. verzend- of 
rembourskosten. 


POSTBUS 225, 8100 AE RAALTE, 05720-54637/54197 
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De koppeling van de 64 aan een HiFi geluidsinstallatie zou de muzikale kwaliteiten 
daarvan natuurlijk niet vergroten, maar wel beter hoorbaar maken. Mark Stoutjesdijk 
maakte er een koppeling voor en volgens hem hebben zowel computer als versterker 
het nog allemaal overleefd. Iets voor de kabelsoldeerders! 


DE C-64 IN 



Audio/Video plug op C-64 

2. aarde 

3. audio out 


2. aarde 

3. linker kanaal 
5. rechter kanaal 


E r wordt wel eens gezegd dat 
de 64 meer kan dan de gemid¬ 
delde synthesizer, maar dat is 
beslist onjuist. Tenminste, 
wanneer die synthesizer ge¬ 
koppeld is met een heel systeem, 
dat bijvoorbeeld bestaat uit een 
mengpaneel, een electrische gitaar, 
een versterker, een equalizer, en 
tenslotte een electrische drum. Met 
dat mengpaneel zijn stereogeluiden 
te creëren en dat is iets, wat de C-64 
met de beste wil van de wereld niet 
kan. Maar hij kan het wel benade¬ 
ren, en met wat hulpmiddelen kan 
de mono-64 in ieder geval geluid uit 
de twee stereo kanalen laten 
komen. 

Hier volgt een beschrijving van de 
aanpak om de C-64 met de geluidsin¬ 
stallatie te verbinden en zo echt goed 
geluid te krijgen. Noch wel geen echte 
stereo, maar een benadering. 

Het vervelende van de standaard ge¬ 
luidsinstallatie van de 64 is dat het 
geluid maar uit ééen luidspreker komt, 
namelijk die van de tv of monitor. Daar 
komt bij dat de kwaliteit daarvan vaak 
dermate slecht is, dat het geluid nau¬ 
welijks muziek mag worden genoemd, 
al speelt de Commodore Chopin of 
The Beatles. Daar moet wat aan te 
doen zijn, en wel op de volgende ma¬ 
nier. 


De audio-poort 

De oplossing is eigenlijk super een¬ 
voudig: de 64 heeft een separate au¬ 
dio/video uitgang (naast de seriële 
poort), en daar is wel wat mee te doen. 
Wie de User-Guide erop naslaat, vindt 
dat er 5 pennen zijn: de audio-in, au- 
dio-out, video-out, gnd, en de luminan- 
ce. Van deze vijf zijn er maar twee te 
gebruiken voor wat we willen, nl. gnd 
(ground, aarde) en audio-out. 

We willen nu met het signaal op die 
pennen de Commodore op een ver¬ 
sterker aansluiten (AUX) en dan via de 
versterker het geluid van twee kanten 
zien te krijgen. Dus of door één box en 
de luidspreker van de monitor, of door 
twee boxen, wat een beter resultaat 
geeft. Daarvoor zijn een aantal con- 
nectors nodig. Afhankelijk van de ge¬ 
bruikte connectors op de versterker 
zijn er nodig: 


Hebt u alles bij elkaar? Dan kan de 
verbinding worden gemaakt. Doe alles 
precies volgens de tekening, die geeft 
de standaard aansluitingen weer. 
Maar denkt u dat de versterker afwijkt 
van de standaard, kijk het dan liever 
even na in de handleiding of docu¬ 
mentatie. 

2 vijf pens DIN-pluggen (nr. 41/524) 
ongeveer twee meter 2-aderige 
kabel 

een versterker 

een of twee luidsprekerboxen. 

De kabelkleuren zijn groen en rood, 
groen als aarde en bij een kabel met 
een afschermende mantel dus liefst 
groen daaraan bevestigen. De kabel 
hoeft niet verschrikkelijk duur te zijn, 
het gaat om tamelijk gewone signalen. 
In de plug die in de versterkeraanslui- 
ting moet, moeten 3 en 5 doorverbon- 



UITBREIDINGSMODULEN VOOR UW 
COMMODORE 64 

Simon Vestdijk Erf 177, 3315 CW Dordrecht Telefoon 078-210181 


Verwacht medio september: 

PROFESSIONELE PROGRAMMER VOOR DE CBM 64/128 


80 

















Tenslotte nog een lijstje met de geschatte kosten: 
pluggen ƒ 1,75 per stuk 

kabel ƒ 2,80 per meter 

versterker tussen 90,- en 500,- afh. van kwaliteit 

boxen tussen 50,- en 500,- afh. van kwaliteit 

Maar meestal heeft u de boxen en de versterker al staan. 


den worden, en aan de buitenkant 
moet een merkteken komen, dat dui¬ 
delijk maakt of de plug in de 64 of de 
versterker thuis hoort. 

Het is ook mogelijk, alleen de pennen 
2 en 3 aan te sluiten, dus 2-2 en 3-3. 

Tenminste, als de versterker onder¬ 
scheid maakt tussen mono en stereo. 
En nog een vereiste is dan, dat de 
mono-input van de versterker pin 3 is, 
terwijl het vaak ook 5 is. Als de combi¬ 
natie 2- 2,3-3 gemaakt kan worden, is 
geen merkteken nodig, immers de 
aansluitingen zijn aan iedere plug een¬ 
der. Wat er nu dus gebeurt, is dat het 
geluid van de 64 op simpele wijze 
tegelijk aan twee ingangen wordt toe¬ 
gevoerd. In wezen zou die splitsing 
ook veel eleganter kunnen worden op¬ 
gelost en met een electronisch filter 
het audiosignaal bv. gescheiden kun¬ 


nen worden naar een aantal frequen- 
tiegebieden. Die moeten apart ver¬ 
sterkt worden en dan zijn semi-stereo 
effecten te bereiken. In de praktijk zult 
u met deze eenvoudige splitsing ech¬ 
ter heel wel uit de voeten kunnen. 

Door wat met de balans te goochelen, 
kan het volume per box ingesteld wor¬ 


den en een redelijk resultaat worden 
bereikt, al is het dan geen stereo. En 
nog een belangrijk voordeel: de kwali¬ 
teit gaat er enorm op voorruit en u kunt 
de volumeknop nu voluit opendraaien. 
Bach uit de 64 begint op Bach te lijken 
en het wordt de moeite waard de 
computermuziek eens op de musicas- 
sette op te nemen! • 


Knutselen met treintjes, electromotoren, relais en schakelaars, dat was voor velen in 
het pre-computertijdperk meer dan een hobby, ze waren er dag en nacht mee bezig. 



Op de Keulse computerbeurs wa¬ 
ren er twee bedrijven druk bezig, die 
vergeten groep weer terug te bren¬ 
gen bij het grote (cofnputerpelo- 
ton). Dat was Fischer Technik, ook 
in ons land al bezig met de verkoop 
van Computer-elektrobouwdozen 
en Marklin, een zeer bekende naam 
voor treintjes liefhebbers. 

Fiseher 

Fischer Technik brengt bouwdozen 
voor het construeren van bewegende 
bouwsels. FT is na het helaas wegglij¬ 
den in vergetelheid van MECCANO nu 
het toonaangevend constructiesys- 
teem op de markt. Meegaand met de 
computertrend heeft men nu ook een 


koppeling met bv. de C-64 in het pak¬ 
ket. Via een interface kan men dan zelf 
(via relais) de besturing van motoren 
en dergelijke regelen en zelfs opne¬ 
men in gecompliceerde programma’s 
om bv. robots te laten werken. Men 
heeft speciale Robot-bouwdozen, 
maar ook een plotter kan men met dit 
systeem bouwen. Via de interface 
(Voor de C-64 is dat Nr 30562, maar er 
is er ook een voor de 40XX en 80XX 
serie CBM micro’s) worden via de 
user-poort de commando’s doorge¬ 
geven naar de ”real time” apparatuur. 


De computer bestuurt de beweging 


Per interface zijn er 4 uitgangen om 
motoren, lampen, ventilatoren, elek¬ 
tromagneten en derg. te bekrachti¬ 
gen. Daarnaast 8 digitale ingangen om 
schakelaars, relais en sensoren op 
aan te sluiten, terwijl er ook nog twee 
analoge ingangen zijn om bv. potme- 
ters of fotoweerstanden op aan te 
sluiten. Het besturen van de uitgangen 
kan met eenvoudige Basic opdrach¬ 
ten, waarvoor een uitvoerige handlei¬ 
ding beschikbaar is. 

Marklin 

Een andere invalshoek tot de model¬ 
bouw komt van Maklin, traditioneel het 
kwaliteitsmerk voor HO treintjes. On¬ 
der de aanduiding DIGITAL HO heeft 
men treintjes en emplacementrege- 
ling nu ook toegankelijk gemaakt voor 
de computer als hoofdmachinist via 
een RS 232 interface. Met een eigen 
Marklin chip, die in de locomotieven 
wordt gemonteerd, word de zaak be¬ 
stuurd. • 
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